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PREFACE 


The study for this report was carried out m the Computer 
Science Department, University of California, Los Angeles, 
under National Aeronautics and Space Administration Contract 
NAS 12-2138. 

The development of the program and the preparation of this 
manual was a cooperative effort. We acknowledge the cooperation, 
patience, and understanding of Dr. W. W. Happ of the Electronics 
Research Center of NASA. We also express our appreciation to 
our sister universities and other NASAP-70 participants for their 
suggestions and help. 

Within UCLA the cooperative spirit has also prevailed. Our 
thanks and appreciation go to: Alfred-Tyrill, who programmed the 
Fast Fourier Transform and plotter; David Paletz, who programmed 
the algorithm for building optimum circuit trees at a given frequency 
and the transfer function printout, Steve Grandi, who programmed 
the sensitivity analysis routines, Mrs. Donnamaie Meyerhoff for 
her excellent survey of transient models and the background study 
in radiation effects m solid state devices, Dennis Sesar for this 
critical review of the computational errors and run time limitations 
of NASAP-70, and Michael Wilson who investigated the application 
of NASAP-70 to large scale problems. 
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CHAPTER 1 

THE NASA P -70 PROJECT 

1. 0 Introduction 

NASA P -70 is a digital circuit analysis program developed at UCLA 

with the cooperation and advice of a number of University, industrial, and 

governmental research groups located m virtually all sections of the United 

States. The program consists of a number of commonly required circuit 

analysis routines that are based upon the flowgraph techniques and algorithms 
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of W. W. Happ and others. ' As was pointed out by Happ, two distinct 
advantages can be realized (1) The requirement for writing a set of 
independent circuit equations is eliminated, and (2) the resulting flowgraph 
is unique. Because of these characteristics and the modular manner m 
which the program is constructed, algorithms can easily be mechanized, 
changed, and expanded for digital computation. 

The program documented herein is the final installment of this 
cooperative project initiated by the Electronics Research Center of NASA 
four years ago. 

1. 1 Capabilities and Limitations 

NASAP-70 can handle linear circuits consisting of constant -value 

passive elements, independent and dependent current sources, and mde- 

pendant and dependent voltage sources. The dependent sources must be 

linearly related to a voltage or current located m another part of the 

circuit. Nonlinear functional relationships (dependencies) and time -varying 

parameters cannot be handled m general. However, provisions have been 

included to accommodate a single nonlinear or external characteristic m 

4 

resistors as advanced by Haag and Weber 
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Central to the NASAP-70 program is its capability to formulate 
transfer functions from a topological description of the circuit and its 
numerical specification of components. The format of the input code, 
selected by a user, dictate the manner by which a transfer function is 
derived by the program. The following input codes, identified by the 
names NASAP, TREE, and CIRCUIT, can be employed 

1. NASAP - directs the program to form its own tree and transfer 
function., 

2. TREE - allows a user to define his own tree from which a 
transfer function can then be constructed by the program. 

3. CIRCUIT - directs the program to select a tree by which a 
transfer function is constructed according to a user specified 
frequency to assure relatively accurate coefficients. 

With one minor, but practical exception, a transfer function, 
relating a voltage across or a current through an element to either a 
driving voltage or current source, can m general be requested. Any 
number of transfer function requests can be made m any given computer 
run. The transfer function formulations are printed out as a ratio of two 
polynomials in S with numerical coefficients. 

In conjunction with a particular transfer function request, a user 
can ask for 

1. The sensitivity of a transfer function to changes m circuit 
parameters - A maximum of twenty valid sensitivity requests 
can be processed for each circuit. The sensitivity function is 
printed as a ratio of two polynomials m S with numerical coefficients. 

2. A worst case analysis - For circuits of twenty elements or less 
(not counting independent voltage or current sources) a worst case 
analysis can be formulated as a ratio of two polynomials m S with 
numerical coefficients. Tolerances for each element can be user- 
specified or defaulted automatically with 10% values by the program. 
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3. Poles and zeros of all transfer functions 

4. The sensitivity of poles - When pole sensitivity is requested, it is 
implied that it is formulated for all elements for which a sensitivity 
request had been issued. 

5. Transient response - A user can request a transient response of 
any transfer function for an impulse, a step function, a sine wave, 
an exponential, a biased pulse, or pulse train driving function. 

6. An A. C. frequency response (Bode Plot) 

The output format for the transient, A. C. frequency response, 
sensitivity and worst case analysis functions can be presented by either 
tables, printer plots or both The input data is written on a free-field 
format. Diagnostics are provided for reading the input circuit description 
cards. If mistakes are relatively minor, corrections are made auto- 
matically by the program and are printed out to inform the user of the 
changes made. The program will not abort a run unless a serious error 
(one which cannot be easily interpreted) is encountered. The normal input 
is by cards. An on-line version of NASAP-70 has been developed but is 
not documented here. 

NASAP-70 has been written completely m FORTRAN IV and has 
been developed on the IBM 360/91 and run on the SDS Sigma Seven Digital 
Computers at UCLA It has been successfully converted to other machines 
by other research groups at installations across the country By means of 
overlays, approximately 32K of core memory is required to handle circuits 
consisting of 30 elements. 

The maximum number of elements that NASAP-70 can accommodate 
in practice is determined by the number of bits m the computer word. 

Even though computer words, m essence, are extended by software, circuits 
with more than 30 elements cannot be handled efficiently by the 32 bit IBM 
machines. Other machines with longer data words, such as the CDC 6600, 
can accommodate larger circuit problems. 
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1. 2 Historical Perspective 


To properly understand the place that NASAP-70 takes m the 
computer-aided design field, it is fitting to trace the development of the 
field, m general, and contrast it with NASAP-70. Typical circuit design 
programs, such as ECAP, SCEPTRE, NET-1, and CIRCUS derive their 
conceptual foundation from the treatise of Gabriel Kron, who was the 
first person to systematize circuit equations for solution by digital 
techniques.^ 

Kron noted that the topological -algebraic structure of networks 
could be treated separately m formulating mexh, nodal, and branch 
equations from a primitive set of ohmic relations. Even to this day, the 
influence of Kron 1 s pioneering efforts are still being felt m all the major 
circuit program developments, including NASAP-70. 

Kron' s ideas, which were presented from an engineering point of 
view, were formally studied by J. Paul Roth who proved the interrelation- 
ship of the topological -algebraic structure of networks from an abstract 

0 

mathematical position. Even though Kron 1 s work was known for a couple 

of decades, it never achieved popularity until Seshu and Reed published 

their papers and a book m which a rigorous proof of network theory was 

7 8 

presented m a manner palatable to engineers. ’ 

Since that time, the field of computer-aided circuit design has 
exploded attracting outstanding investigators from many engineering and 
science fields. Noteworthy among the investigators are Branin, Bashkow, 

Calahan, Katzenelson, Malmberg, Kuh, Rohrer, Desoer, and many 

,, 9-16 

others. 

All of these researches advocated the matrix or state space method 
dealing with circuit problems. NASAP-70, on the other hand, with its 
flowgraph approach, traces its origin to Claude Shannon who discovered 
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the topological gam formula while investigating the functional operation of 

17 sic 

an analog computer. Shannon 1 s formula which is an analytic equation 
for calculating the gam for an open loop system (circuit) was generalized by 
W. W. Happ to include closed systems.' 1 ' The Shannon-Happ formula fabri- 
cates the backbone of NASAP-70 upon which the transfer function, sensitivity, 
and frequency response of a large class of linear systems can be computed. 


The NASAP project was started approximately four years ago at the 
Electronics Research Center of NASA with the Shannon-Happ formula as a 
programming kernal. The first year was devoted to program development 
which included transfer function, sensitivity, and A. C. frequency response 
capabilities. The second and third years brought further program develop- 
ment and application studies into areas of NASA research. This past year 
the NASAP project came to a close. The final version of the NASAP program, 
called NASAP-70, is documented herein. In addition, seven applications 
manuals are being written in the areas of Electronic Filter Design, Instru- 
mentation Circuits, Biomedical Circuits, Communication Circuits, and 

.. 18-20 
others. 


1. 3 Format of the Manual 

The manual is divided into two parts (1) A User 1 s Guide, which is 
made up of Chapters 2 and 3, and Appendices B and C, and (2) a Programmer 1 s 
Manual which consists of Chapters 4 and 5, and the program listing and 
dictionary of program variables m Appendix A. 

In Chapter 2, the fundamentals of setting up a problem for NASAP-70 
are presented without any deep discussion of the theory involved It has 
been written, however, to show the program can be used for large problems, 
and how computing time and computational errors can be predicted and 
reconciled. 

During World War II, Claude Shannon developed his formula. But because 
of wartime restrictions, his work was not published and was virtually 
unknown to the academic community. In 1952, Samuel Mason rediscovered 
the same formula. 
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The theory behind NASAP-70 has been reserved for Chapter 3. 
Appendix B describes the most popular transistor models m use today, 
and includes a discourse of environmental effects (radiation) on transistor 
models. 

Chapter 4 contains a detailed description of the NASAP program. This 
chapter should be read in conjunction with Appendix A, the program listing 
and dictionary of variables. Chapter 5 describes the system requirements 
for implementing NASAP-70. 

The format of the User 1 s Guide and Programmer 1 s Manual has 
been designed to place those topics which can usually be self-contained m 
an individual chapter. It is for this reason that all references pertinent to 
a chapter have been placed at the end of that chapter. The format of the 
manual also provides a convenient method to add, delete, or change portions 
of the manual without disrupting larger segments of the entire manual. 
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PART I THE USER’ S GUIDE 


CHAPTER 2 
A USER 1 S VIEWPOINT 

2. 0 Introduction 

This chapter describes the step-by-step procedure of how to prepare 

a circuit for analysis by NASAP-70. The discussion has been restricted to 

( 

an explanation of the rudiments of coding and does not include a detailed 
study of circuit theory or programming. That has been reserved for Chapter 
Chapters 3, 4 and 5. Examples have been dispersed throughout the discussion. 
Also included are some design tips from a user’ s viewpoint of NASAP-70, 
partitioning schemes, error analysis, and nonlinear techniques. 

It must be emphasized, however, that if one is to really achieve a 

good design, a deeper understanding of circuit theory, and the advantages 

and limitations of computer methods contained herein are necessary. To 

that end the user is encouraged to read the articles and books referenced 

1-4 

at the end of the chapter. 

2. 1 Preliminary Considerations and Modeling 

Before any problem is coded for a computer run, it is important to 
make a check on the validity of the circuit itself and the device models. 
Difficulty usually arises when some physical device, such as a transistor, 
diode, etc. , is replaced by a lumped parameter model made up of some 
dependent active devices and passive elements, and inserted into the 
remaining network without really looking for such conflicts as two elec- 
trically difference current sources placed m series, or two electrically 
different voltage sources placed in parallel. In general, no loop m a 
circuit may consist entirely of voltage sources, including independent and 
dependent sources, nor should any node be formed entirely of branches m 
which only independent and dependent current sources are present. If such 
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a case should occur, it would mean that NASAP-70 (or any other program 
for that matter) would not be able to formulate a set of independent equations 
necessary for solution since it violates the fundamental conservation of 
energy law. 

It is also imperative to have a circuit designer select the appropriate 
model for a physical device. Quite often the model chosen has been derived 
for one type of operation and is assumed to be valid for another. All models 
are restricted to some extent. There are A. C. , D. C. , and transient models, 
some are considered small signal or large signal, while others are considered 
low frequency or high frequency. There are also the so-called environmental 
and radiation -effect models. Generally speaking, all models are appropriate 
only for the particular application for which they were derived, and if a 
circuit designer places a model m a universal catch-all role, only mis- 
leading results can occur. 

In Appendix B descriptions of typical transistor models have been 
compiled and classified according to the intended use. Also include there 
is a tabulation of how the model parameters can be calculated from the 
manufacturer 1 s device specifications. A rather m-depth study of solid- 
state modeling for a radiation environment is also given. 

Besides modeling, other difficulties can appear when a complicated 
circuit is approximated by reducing the number of circuit. All too often, 
entire sections of a circuit are replaced by a simple series or parallel 
circuit, the cumulated practice of which can eliminate critical modes of 
circuit operations. As is usually the case, the circuit designer is so 
preoccupied with establishing models or reducing the size of the circuit in 
order to code it for the computer that he completely loses the physical < 
realization of the problem itself. No matter how carefully a computer 
program is conceived, its operation can be completely frustrated by 
improper use by circuit designers who consistently violate sound engi- 
neering practice for the sake of accommodating a computer program. 
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2. 2 Circuit Preparation 


Once an appropriate circuit configuration has been established, 

making certain that no physical inconsistencies exist, the step-by-step 

preparation procedure for coding NASAP-70 can then be carried out. The 

procedure recommended here is described by means of an example circuit 

problem shown m Figure 2. 1(a) which calls for an A. C. transfer function 

4 

relating the voltage V ou ^. across the inductor to the input voltage V^. The 
A. C. equivalent circuit is shown m Figure 2. 1(b). Note' that the battery 
has been replaced by its internal impedance of zero ohms and the transistor 
has been modeled by a simple input resistor and a dependent current gen~ 
erator placed m parallel with an output resistor. (High frequency effects 
are not considered here and actually are not required to illustrate the 
preparation procedure. ) 

Assuming that the circuit model m Figure 2. 1(b) is adequate for the 
desired analysis, the initial preparation of coding for NASAP-70 requires 
that a unique identification be imposed on the topology of the circuit, the 
circuit elements, and the dependencies. Consequently, the nodes are 
numbered consecutively starting with the number 1 and the elements are 
redefined according to a letter-number format, where each component is 
unambiguously determined, according to type, by one of three possible 
coding schemes described m section 2. 3. No two components can have 
the same code identifications. Dependencies are indicated on the circuit 
diagram by a dash line which designates the current or voltage variable 
upon which the sources are dependent This is done only as a crutch to 
remind the designer not to forget it when the circuit information is actually 
coded. 

After the nodes are assigned numbers (topology), and the circuit 
elements and dependencies are distinguished, as shown m Figure 2. 2 for 
the coding scheme NASAP, the unknown directed current variables must be 
assigned to each circuit branch element. Generally speaking, the current 
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Figure 2 1 
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VI = 1 volt C2 = lOjuf 

R1 = 50 ohms jS =98 

Cl = 10 7 ppf 115 = 2 megohms 

R4 = 25 ohms R2 = 20, 000 ohms 

R3 = 325 ohms LX = 1 7 millihenry s 

Figure 2 2 Prepared Circuit Diagram for Coding Scheme NASAP 



(a) (b) (c) 


VOLTAGE SOURCE CURRENT SOURCE PASSIVE ELEMENT 

(dependent and independent) 

Figure 2 3 Voltage-Current Relationship of Elements 
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direction m each passive element can be assigned arbitrarily although some 
caution must be exercised in assigning currents to passive elements related 
to dependent sources. The current directions in active devices also must 
be handled with care so that the proper voltage -current relationship can be 
established. 

Voltage Sources . The current direction associated with either an independ- 
ent or dependent voltage source should be established m the positive sense 
of the voltage rise — from minus to plus — as shown in Figure 2. 3(a). (An 
opposite rule could have been assumed but this would have required that a 
negative voltage value be read in with the input data. Since such a practice 
is somewhat unnatural to most circuit designers, it has been avoided here 
as a matter of good practice rather not that it cannot be done.) Following 
the current assignment rule as stated presents no difficulty when independent 
voltage sources are being considered, m general, the same rule can be 
applied to dependent voltage sources provided the dependency relationships 
are consistent with the physical phenomena involved. (A number of examples 
consisting of dependent sources have been included m this chapter and are 
described in sufficient detail to illustrate how the common current assign- 
ment rule for both dependent and independent voltage sources can be adopted. ) 

Current Source In dealing with either dependent or independent current 
sources, the positive voltage sense is taken m the direction of positive 
current flow as shown m Figure 2. 3(b). Similar to the discussion concern- 
ing dependent voltage sources, the positive sense of the voltage across the 
dependent current source is the same as that defined for the independent 
current source provided the dependency relationship is consistent with the 
physical phenomenon. Examples are included to illustrate the procedure to 
be employed. 

Figure 2. 3 summarizes the current -voltage relationship for the 
dependent and independent active devices and passive elements. If the 
assignment of the current direction is m agreement with these configurations - 
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including the dependency considerations described below - the NASAP-70 
program can then be properly coded. 

Dependencies . A major concern of the NASAP-70 m programming depend- 
ency relationships is to assure that the proper sign is attached to the coded 
dependency parameter. Consider the transistor model shown m Figure 2. 4(a) 
which has been extracted from the diagram of Figure 2. 2. For this common 
emitter circuit, if a current flows into r^, the dependent current source 
will generate positive current flow as indicated in Figure 2. 4(a). For the 
case depicted /3 is taken as a positive number, and thus the current can be 
expressed as L = J3I . If the assigned current direction m r is taken as 
m Figure 2. 4(b) while the 1^ direction of flow is retained, then the depend- 
ency parameter would be - a negative number. Therefore it is important 
that the physical dependency phenomenon b e cle arly understood for each 
device that is being modeled. 

Another dependency example is shown m Figure 2.4(c). For this case a 
dependent voltage source is considered, where is linearly related 
to the voltage v^ developed across the resistor r^ as shown. In order 
to maintain the positive value of the parameter p in the relation V = juV., 
it is necessary that the positive sense of be taken across r^ as the 
physical phenomenon dictates. Thus, this requires that the current through 
r^ be assigned so that the desired voltage polarity of V is produced. 
Alternative measures can be taken, but practicality dictates that it is best 
to follow one rule because it leads to fewer errors and presents a better 
means for debugging. The user must be cognizant of the dependency 
relationship involved and code according to the plan best suited to his own 
tastes. 

Once all the preparation steps are completed to uniquely identify the 
topology, the circuit elements, and the dependencies, and to assign the 
current direction m all the circuit elements - the circuit diagram is then 
ready for coding. Notice, for example, m Figure 2. 2 that all the nodes 
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are numbered consecutively starting with the number 1. Zero and negative 
node numbers are not permitted. Also note that all circuit elements have 
been redefined to conform to the NASAP letter -number coding scheme (see 
Section 2. 31). It must be emphasized that even though some of the elements 
could have the same value, they still have to be assigned different numbers 
m their respective letter -number symbol. The dependency relationship is 
illustrated by a broken line with the associated dependency parameter value 
placed m the middle of it. 

2. 3 Coding Mechanics 

The general order of a NASAP-70 program deck is shown m Figure 
2. 5. The first group of cards allows a user to head the output listing with 
the title information punched on them. No more than ten cards are permitted. 

The second group of cards contains the topology information, element 
designators, the values of the elements, and dependencies of the circuit to 
be analyzed. Three different circuit description coding rules can be utilized. 

The last group of cards contain the desired output requests. 

The title, circuit description, and output request cards are separated 
from each other by control cards. The necessary control card information 
is dictated by the circuit description format selected by a user. 

Any number of individual problems can be processed during a 
computer run. However, the above mentioned order must be maintained for 
each problem. The last card of the entire group of cards must be a STOP 
card. Only one STOP card is allowed. 

2. 3. 1 Circuit Description Codes 

The circuit description coding rules are based upon a free -field 
format whereby each element identifier is written on a programming sheet, 
one to a line, with its corresponding topological, numerical, and dependency 
information. Thus a circuit composed of, say, 15 elements will require 15 
cards, exclusive of the control and output request cards. 
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Control Card #1 


Circuit Description 

Cards 

Topology 

Element Identification 
Numerical Values 
Dependencies 

Control Card #2 

Output Request Cards: 
Transfer Function 
Pole Sensitivity 
Parameter Sensitivity: 
Worst Case 
Transient Response 
Poles and Zeros 
Frequency Response 
Nonlinear Parametric 
Response 

Control Card #3 

STOP Card 

Figure 2 5 
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The three different code formats available in defining a circuit to 
NASA P- 70 are identified to the program by punching one of the words: 
NASAP, TREE, or CIRCUIT on control card #1. 

NASAP: For compatibility with other versions of NASAP, control card #1, 
with NASAP punched on it, will cause the program to accept the circuit 
description in the form presented in A USER'S GUIDE AND PROGRAMMER'S 
MANUAL FOR NASAP 5 and CODING INSTRUCTIONS FOR NASAP 6 9 /I, 6 
The NASAP coding of a circuit relieves the user of selecting a tree Instead, 
the program automatically builds a tree that results m a transfer function 
being formed m a minimum of computation time 

The circuit coding requires that six fields of information be set 
down on each card, and since a free field format is employed, the ordering 
of the information must be taken into account This is done by inserting at 
least one blank to separate the fields from each other, permitting the infor- 
mation to be inputted without regard to column orientation 

The general form of the circuit input data is. 

(SsigStor) <omgin node) lTAEaET NODEI (^”p E 5dency) (op™«al)(SSnator Y ) 

\ VALUE / 

The parentheses are not allowed on the coding sheets, but are placed here 
for clarity sake. 

The first letter of each ELEMENT DESIGNATOR must conform to the 
following relationship: 

Table 2. 1 

V Voltage Source C Capacitor 

I Current Source L Inductor 

R Resistor 
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Any of those letters may be followed by up to 11 alphanumeric characters 
to bring the total number of characters in the ELEMENT DESIGNATOR to not 
more than 12. 

The second and third fields contain the numbers of the origin node 
and the target (terminal) node, respectively, of the assigned current flow 
through the element. The fourth field accepts the numerical value of the 
circuit element, if the element is not a dependent source, and accepts the 
dependency parameter value if it is. The numerical values can be expressed 
m either decimal numbers with or without a decimal point, or m Fortran 
E-format. 

The fifth field is an optional units field that allows a user to operate 
m other than the MKS system of units. In effect the units field is a scale 
factor multiplier to the numerical value field. The accepted symbols are 
given m Table 2 2 No mixing or interchanging of scale factors are permitted. 
If UNITS is not specified, MKS units are assumed 


Table 2. 2 


ELEMENT 

SCALE FACTOR 

MULTIPLIER 

RESISTOR 

K 

10 3 


M 

io 6 

CAPACITOR 

PF 

10 - 12 


UF 

io" 6 

INDUCTOR 

UH 

10 “ 6 


MH 

10 - 3 


The sixth field position is employed only if a dependency exists, which is 
indicated by writing either an I, for current, or V, for voltage, followed 
by the element identifier of the element upon which the dependency exists. 
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With the "NASAP" coding rules, the ^ - 

P^^Pared circuit diagram of 

Figure 2. 2 can be coded as shown below: 


ELEMENT 

DESIGNATOR 

ORIGIN 

NODE 

TARGET 

NODE 

p ^Hameter 

OR 

C>EIP EN DENCY 

value 

UNITS 

DEPENDENCY 

DESIGNATOR 

VI 

1 

6 

1 



R1 

6 

1 

50 



Cl 

6 

5 

10.7 

PF 


R4 

5 

3 

25. 



R3 

3 

1 

325 



C2 

3 

1 

10 

UF 


11 

4 

3 

98 


IR4 

R5 

4 

3 

2 

M 


R2 

2 

4 

20 

K 


LI 

2 

1 

1.7 

MH 



Note the coding peculiar to the dependent current source II. Since II is 
related to current flow m the resistor R 4 , the dependency relation is 
indicated m the sixth field position as lp >4 with the dependency parameter /3 
(which is equal to a value of 98) coded i n the fourth field. If other dependent 
sources were present, they too would follow the identical coding scheme. 

Control card #2, for the NASAp coding rules., must contain either 
the word OUTPUT or the word END. 

TREE The TREE input code can be employed by a user who wishes to form 
a transfer function based upon a us er -defined tree. Control card #1, with 
the word TREE on it, alerts the pr 0gra m that the circuit description that 
follows contains a user specified tree m addition to the topological, elemental, 
and dependency information. 

The general format of the circuit coding is 
ELEMENT IN D ENTIPlER/Dp]p ENDENCy (ORIGIN -TAR GET) = VALUE UNITS 
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To obtain a worst case function, a card must be inserted immediately 
after control card #2 (the END or OUTPUT cards), with the word, WORST. 
Tolerance cards must also be provided, since the variation of each element 
must be known. Tolerance cards have the following format 

TOL = ELEMENT DESIGNATOR = VALUE 

where ELEMENT DESIGNATOR is a circuit element, and VALUE is the relative 
tolerance of the element Q. If no TOLERANCE card is provided for 

an element, a default value of . 1 (10%) is assumed. 

When a WORST CASE Function is requested, the sensitivity functions 
for all elements are also printed out automatically. Therefore no SENSI- 
TIVITY cards can be present when a WORST card is present . A typical 
WORST CASE analysis is given in the examples in Appendix C. 

POLE SENSITIVITY The sensitivity of the poles of the transfer function is 
obtained by adding the word POLES to the ROOTS card: 

ROOTS, POLES. 

Pole sensitivity m NASAP-70 is defined as 
dS 

Tin _ 1 n 


where S^ is a pole and Q is a circuit parameter whose value changes 
causing a change xn the root S . The sensitivity of the poles are produced 
for all elements for which a sensitivity request is made (or for all elements 
if a WORST card is included). 
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Pole sensitivity function is printed as the ratio of two polynomials m 
S, just like the parameter sensitivity function and is interpreted similarly. 

Plot Requests: Printer plots can be requested of NASAP-70 to produce: 

(1) transient responses of transfer functions from a group of user-specified 
standard input functions, (2) a bounded frequency response of transfer functions, 
and (3) bounded (parameter, pole, and worst case) sensitivity responses. 


The plot request is a single card of the form 
PLOT (option 1 /option 2 ) 

where the options are types, parameters, and limits of the printer plots. 
All options for any one plot request must appear on one card since contin- 
uation cards are not allowed. Not all the options are required since 
defaults are provided. Options may appear m any order on the plot card. 

A transient response can be obtained for an impulse, step, sine, 
exponential, pulse, and pulse tram by specifying an option according to 


Table 2. 6 


OPTION FORMAT 

DESIRED INPUT RESPONSE 

TYPE = IMPULSE 

Impulse 

TYPE = STEP 

Step function 

TYPE = SINE 

Sine Wave 

TYPE = EXPONENTIAL 

Exponential 

TYPE = PULSE 

Pulse or Pulse tram 


To provide control over the format of the printer plot itself the following 
options can be included 
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Table 2. 7 


Option Format 

Interpretation 

AMPLITUDE 

= a number 

Represents the magnitude of any of 
the waveforms m Table 2.7 

DENSITY 

= a number 

Specifies the number of calculations 
per plotted output point 

TIME 

= a number 
(in secs) 

Specifies the duration of the applied 
input, it must always be present for 
any transient response request 

STEP 

= a number 
(m secs) 

Specifies the time between individual 
calculated points 


For the PULSE type option, the following additional options can be 
employed 


Table 2. 8 


Option Format 

Interpretation 

BIAS = a number 

Usedm conjunction with the 
AMPLITUDE option to produce a 
tram of positive and negative pulses 

WIDTH = a number 
(m secs) 

Specifies the duration of a pulse 

CYCLE = a number 
(m secs) 

Specifies the time of one cycle 


To illustrate how some of the pulse options are combined, consider the 
plot statement 

PLOT (TYPE = PULSE / AMPLITUDE = 10/ BIAS = - 2 / WIDTH 
= 10/CYCLE=15/TIME=30) 

The program interprets this statement to mean a pulse tram of two 
pulses (TIME = 30 seconds) where each pulse alternates between +8 and -2 
(from AMPLITUDE = 10, BIAS = -2) and each pulse duration is 15 seconds 
(CYCLE = 15) with a change from a positive to negative amplitude 10 seconds 
from the beginning of the cycle (WIDTH = 10). Figure 2. 12 illustrates the 
waveform involved. 
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Options associated with other type inputs are as follows - 


Table 2. 9 


TYPE OPTION 

INTERPRETATION 

CONSTANT = a number 

FREQUENCY = a number 
(m Hz /sec) 

Used only with EXPONENTIAL 
input. It represents the a m Ke 

Used only with the SINE input to 
specify the frequency of the sine wave 


Table 2 10 summarizes all the type input options and their permissable 
function and printer graph parameters. Only the first two letters of each 
word are needed. For instance, AM may be used to abbreviate AMPLIT UDE, 
IM for IMPULSE, etc. 

The following default conditions apply 
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Table 2. 10 


TYPE 

TRANSIENT OPTIONS 


AMPLITUDE 

BIAS 

CONSTANT 

FREQUENCY 1 

DENSITY 

TIME 

WIDTH 

CYCLE 

STEP 2 

IMPULSE 

X 




X 

X 



X 

STEP 2 

X 




X 

X 



X 

SINE 

X 



X 

X 

X 



X 

EXPON 

X 


X 


X 

X 



X 

PULSE 

( PULSE - 
TRAIN) 

X 

X 



X 

X 

X 

X 

X 


1. The option "frequency" is used here m conjunction with the TYPE option SINE, it is also 
used as a TYPE option in generating a frequency response (see Table 2. 12). 

2. Step is used m three senses as a TYPE option to denote a step function, as an increment 
between plot points (m secs) for transient responses, and as an increment between plot 
points (m CPS) as given in Table 2. 12. 




Table 2.11 


OPTION 

DEFAULT 

TYPE 

IMPULSE 

TIME 

1 second 

STEP 

.01 

AMPLITUDE 

1 

DENSITY 

1 

CONSTANT 

1 

FREQUENCY 

1 


Inconsistent requests will be ignored and are defaulted from left to 
right, e. g. , 

PLOT(TYPE = IMPULSE /FREQ = 2) yields an impulse response. 

The printer plot capability can also be employed to produce a 
frequency plot (Bode) of a transfer function and sensitivity functions. The 
PLOT instruction include the appropriate codes shown below 
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Table 2. 12 


FORMAT 

INTERPRETATION 

TYPE = FREQUENCY 

Plots the magnitude and phase of the 
transfer function 

TYPE = SENSITIVITY 

Plots the magnitude and phase of the 
sensitivity function 

TYPE = WORST 

Plots the magnitude of the square 
worst case tolerance function 

EL = Element Designator 

Specifies to the program which 
particular sensitivity function 
request should be plotted (from a 
1 SENSITIVITY' or ' WORST' card) 

FROM = a number 
(in CPS) 

Specifies the beginning of a frequency, 
sensitivity, or worst case response 
plot 

TO = a number 

(in CPS) 

Specifies the end of a frequency, 
sensitivity, or worst case response 
plot 

STEP = a number 
(in CPS) 

Indicates the frequency step incre- 
ment between individual calculated 
points 


Note that the keyword STEP is used in a different context here than m the 
transient response case. 

To illustrate how the PLOT options can be used, consider the plot 
statements 

PLOT(TY = FR/FR = 10 /TO = 1E3/ST = 1. 122) 

PLOT(TY = SE/EL = C3/FR = 10/TO = 1ES/ST = 1. 22) 

taken from the output request statements in Figure 2. 7. The first statement 
requests a frequency plot of the transfer function VR4/VV1, to encompass 
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the frequency range from 10 to 1000 cps m increments of 1. 122 cps. The 
second statement requests a plot of the sensitivity function of the transfer 
function VR4/VV1 with respect to the element C3. The frequency range is 
the same as the first plot statement. Figures 2. 13 and 2.14 are plot and table 
outputs of the two PLOT requests. 

Note that the PLOT requests always refer to the previous transfer 
function request, if more than one such request is made. The sensitivity 
plot request must include an element option since more than one sensitivity 
request can be called for m conjunction with a transfer function request. 

Both the magnitude and phase are printed out. 

Control Card #3 can have either the word EXECUTE or END on it. 

As another example problem describing PLOT requests, consider 

7 

the circuit shown m Figure 2. 15 taken from the report by Moe and Schwartz. 
The input code is shown m Figure 2.16 where the transfer function of the 
voltage across C7 to the drawing voltage source VI is requested. There are 
three transients plots requested (1) an impulse response of . 5 sec duration, 
(2) a step response of . 5 sec duration, and (3) a 4 cps sine wave response, 
outputted every . 005 second until 9 seconds is reached. 

The output plots and tabular data are shown m Figures 2. 17 through 

2 . 22 . 

Figure 2. 23 shows a typical deck setup for multiple circuit problems 
for one computer run. The three different coding schemes are illustrated. 

Complete input and output listing of another sample problem can be 
found m Appendix C. Note only one STOP appears — at the end of the deck. 
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l.OCOE 01 


1.1Z2E 01 
1,2596 Ql_ 
l,Al2E 01 
lo 585E 01 
1.778E 01 ' 
1.995E 01 


Zo,238£ 01 
2.5I2E 01 
2o 818E 01 


1.50113E-01 


1.51226E-01 
1»S 26 ACE-0 1 
1, BAA 39 E— 01 
lo 56736E— 01 
U59679E-01 
U63A69E-B1 


io 6S26IE-C1 
1.7 4BCCE -Q1 
' 1« 83280E-01 


3. 1£2E 01 


3 5A?E 01 
_ 3, 9 6CE. 01 
A A66E 01 
5,0116 01 
5,622E 01 
6.3C8E 01.. 


7.C77E 01 
7,9 4 IE 0I_ 
0,9CSE 01 


l«546A9E-Ol 


2* 1C189E-Q1 
2, 319SEE— 01 

2, d3725E-01 

3. 1*:164 E-Ql 
3. 5C67 
5,22661 


6« 5IA35E-01 
6,AC991E-Q1 
A, 22CC3E— 01 


9 556E 01 


W122E 02 
1.ZS8E 02 
1.A12E 02 
1,584E 02 



2.8A271E-02 

2 ^ 1 , 3 ^ 3^02 

2.22677E-02 



Figure 2 13a 
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FREQ 

PHA 

FREQ 

PHA 

FREQ 

PHA 

FREQ 

PHA 

1« OOOE 

01 

-1. 73835E 02 

3.162E 

01 

~ -1.63565E 02 

- 9.996E~0l 

8.377986 Cl ~ 

3. 161 E 02 

5T25309E 01 

1* 122E 

01 

-1.731146 02 

3.5476 

01. 

-1. 62592E 02 _ 

1.1226,. 02 .. 

7.953276 01 

3.546EJ>2 

8.32624E 01 

1.259E 

01 

-1. 12 HE 02 

3.S80E 

01 

-1.615526 02 

1.2586 C2 

7.79C37E 01 

3.979E 02 

6.393646 01 

1.412E 

01 

“1. 714416 C2 

4.4646 

01 

-1.621126 02 

1. 4126^0? 

_7.75396E_0jL_ 

4.464E 02 8.45524E 01 

1.5856 

01 

-1.70484E 02 

5.011E 

01 

— 1*636 35E 02 

1.584E 02 

7.782266 Cl 

5.009E 02 

8 511176 01 

1.7786 

01 

-1 69446E 02 

5.4226 

01 

_ -1.6EC51E 02 

1.7776 02 

7.843946 0l„. 

_5.62Q 

8.56173E 01 

I.995E 

01 

-lo68333 E 02 

6.3C6E 

01 

-1.75C346 02 

1.9946 02 

7.92191E 01 

6.305E 02 

8.607256 01 

2.23BE 

01 

-1.67155E 02 

7.0776 

01 

1. £54006 02 

2. 2386 02 

_ 0.006426 01 

7.075E_02 

8.648106 01 

2.5L2E 

01 

-1.65937E 02 

7.941E 

01 

1.177266 02 

2.51IE 02 

8.09175E 01 

7. 9386 02 

8.684686 01 

2* 816 E 

01 

-1.64718E 02 

8.9C9E 

01. 

9. 396906 01 

2.817E 02 

8.17460E 01 

8.906E 02 

8.717346. 01 



- 

- 

' 

- - — - 

- - 



— 


GREATEST 

VALUE * 1*5540 CE 

02 


LOWEST VALUE * -I.79034E 02 

INTERVAL * 

2.908136 00 




Figure 2 13b 
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PLOT ( T Y*SE/EL»C3/FR=lC/TG>IE3/ST*l. 12Z> 


SENSITIVITY WITH RESPECT TC C3 


THE TRANSFER* OF THE RESPONSE 

IS 




EXP. OF S 

MJMER* CCEFFS. 

OEKCP. CGEFFS. 



C 

0.0 

1.4G9C6E 06 



1 

1.C53C5E C2 

1.10726E 04 



2 

7.0515C5 00 

2 14515E 01 



3 

3.574C2E-02 

6 177186-02 



4 

7.472SSE-C5 

1.23867E-04 



5 

4.44249E-C8 

8.88326E-06 



6 

0.0 

-I.55484E-14 




FREQ 

HAG 

FREQ 

PAG 

FREQ 

MAC 

FREQ 

HAG 

loCOOE 01 

1. E7546E-02 

3» IttE 01 

2. 016186-01 

9 5566 Cl 

1.3B362E 00 

3.1616 02 

5.601646-01 

1.122E 01 

2.351036-02 

3.5476 01 

2. 63168E-01 

1.122E 02 

1.120016 00 

3.546F 02 

5.476296-01 

1.259E 01 

2.5525TE-02 

3.S80E 01 

3.4ES41E-01 

1.258E 02 

9.52435E-01 

3.9756 02 

5.37739E-01 

1.412E 01 

3.716156-02 

4.466E 01 

4 71535E-01 

1.412E 02 

8.392706-01 

4.4646 02 

5.299206-01 

1.585E 01 

4a 6E5EzE-C2“ 

S.011E 01 

6 564156-01 

1.584E C2 

7.59117E-01 

~ 5.009E 02 

5 237316-01 

1. 776E 01 

5.5214OE-02 

5.6226 01 

9.63C80E-01 

1.7776 02 

7o00355E-01 

5.6Z0E 02 

5 188276-01 

1 995E 01 

7.50181E-02 

6» 3CEE 01 

1. 4 C 1E4E 00 

1.9546 02 

6o 562 1 3E-01 

6«305E 02 

5.149406-01 

2o 238E 01 

9. 53375E-C2 

7.C77E Cl 

2.26423E 00 

2. 2386 02 

6o224 BBE-01 

7.075E 02 

5.118566-01 

2. 512E 01 

l. 2 1644 E-Ol 

7.9416 01 

2.3E7E6E 00 

2.51 IE 02 

5.96415E-01 

7.938E 02 

5 094076— Cl 

2.8186 01 

U5604CE-01 

6.9C9E 01 

1. E1677E 00 

2.8176 02 

5.760936-01 

8.9066 02_ 

5.074656-01 


GREATEST VALUE = 2.38766E 00 


LOWEST VALUE >00 


INTERVAL « 2.07640E-G2 



Figure 2 14a 
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FREQ 

PMA 



l.OCOE 

01 

1.S36S8E 

02__ — 

3., 

1. 122E 

01 

1. 59421E 

02 

3« 

1.2596 

01 

1. S58 C 6E 

cz„ _ 

3* 

1.4126 

01 

1*60123 E 

02 

4. 

1.5856 

01 

1*6G1C0E 

02 

.5* 

1.778E 

01 

1.59S24E 

02 

5, 

U995E 

01 

1.55287E 

02 

-6* 

2<,238E 

01 

1.594716 

02 

7. 

2.512E 

01 

1. 57375E 

02 . 

_ 7* 

2*B18E 

Cl 

1.555516 

02 

8. 



8. 76770 E 01 
_4.^167E_01 . 
1.SS367E 01 


„ PHA 

_6jji ^ 6 5 fl E _C0. 
-3.52649E-01 
,_=4. 17049 E. 00 
-6«366?LE 00 
.Z.7.58162E 00. 
-8.16203E 00 
j=£*JU873E_0Q. 
—8* 1911BE 00 
„l2*8768DE_00 
-7.44515E 00 


FREQ . _ 



PHA 

9.4653 EJJO 
-6.4L7G8E 00 
rJ5*88182E 00 
•5.35784E 00 
r^.85635E 00 
-4.383S4E 00 
.z3* 94 4-HZ.E_Q.QL- 
-3.53841E 00 
^3*16645£ 00„ 
-2.82T00E 00 


GREATEST VALUE - » 1.60123E 02 " LDHEST VALUE * -8~.31873~E <J0 INTERVAL » U46471E 00 



Figure 2 14b 
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Figure 7 . 15 Complete Simplified Circuit for Anas r 
Complete EOG System v’lth a Fourr- 



NASAP {SIMPLIFIED EDG SYSTEM WITH BLINK INPUT) 


VI 1 2 0. 1166 

R12 3 1.0 

Cl 2 3 0. 2265F 
R2 3 1 0. 876 
V2 1 4 2. 14 VR2 
R3 4 5 1.0 
C2 5 1 0. 0580F 
1116 1 VC2 

12 6 1 1 VC4 

C3 6 1 0.04459F 
V3 1 7 1.0 VC3 
R4 7 8 0.02275 
C4 8 11. OF 
V4 1 9 10.99 VC4 
R5 9 10 1. 0 
C5 10 1 0. 007496F 
V5 1 11 50 VC5 
R6 11 12 0. 1 
R7 12 13 14K 
C6 13 14 1. 6UF 
R8 14 1 15. 4K 
R9 16 14 1M 
RIO 14 15 10K 
Rll 12 16 14K, 

R12 15 1 200 
I 3 1 15 500 VR9 
R13 15 16 10K 
C7 16 1 2.0UF 
OUTPUT 
VC7/VV1 

PLOT(TY-IM/TI=0. 5) 
PLOT(TY=ST/TI=0. 5) 
PLOT{TY=SI/FR=4/TI=l. 0/ST=. 005) 
EXECUTE 
STOP 


Figure 2 16 NASAP - 70 Input Coding 
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TRA NSFER , FUN CTION 


_ 7 

- BoI.81E 06 lo 8 E3E C6S~ - loOOOF 00S + 0 o Q 


+ 0 o 0 + OoO + OoO 


+ Oo 0 


2 3 4 5 6 7 

3a 10 SF 09 ± 9 0 319F C8S„ ± lo.275E CSS .+ loC515 079 .+ V1_5?E_ 05S + lo438E 04S + 2 0 162E 02S + UOOOE OOS 


THE FUNCTION 

FACTOR = 

-2o29*E C 6 
























OaO 

0 o 0 

n,0 

CoO 

0,0 

OoO 


OoO 


OoO 


OoO 

Oo 0 

OoO 

OoO 

OoO 

. OoO 

OoO 

OoO 


OoO 


OoO 


0,0 

CoO 

OoO 

Oo 0 

OoO 

OoO 

OoO 

OoO 


OoO 


OoO 


0,0 

OoO 

OoO 

OoO 

OoO 

0,0 

OoO 

OoO 


0,0 


OoO 


0,0 

OoO 

OoO 

OoO 

OoO 

Oo Q 

lo 22969E 19 

3o <1 8672E 

1 R 

So45604F 

17 

4o49549E 

16 

2o20682E 15 

6o 1 5044E 13 

9u 2503 3E 11 

4o277S6E 

OS 0,0 

OoO 

OoO 

OoO 


OoO 


OoO 


0,0 

OoO 

OoO 

OoO 

OoO 

OoO 

OoO 

0, 0 


OoO 


OoO 


OoO 

OoO 

OoO 

Oo 0 

0,0 

OoO 

OoO 

OoO 


OoO 


OoO 


OoO 

OoO 

OoO 

OoO< 

Ood 

0,0 

o'oO 

0,0 ' 


OoO 


OoO 


OoO 

OoO 

OoO 

OoO 

OoO 

OoO 

0,0 

0,0 


Oq.0 


OoO 


0,0 

0,0 

OoO 

OoO 

OoO 

OoO 

0,0 

0,0 


OoO 


OoO 


OoO 

OoO 

OoO 

OoO 

0,0 

OoO 

OoO 

OoO 


OoO 


OoO 


0,0 

0,0 

OoO 

OoO 

0,0 

OoO 

0,0 

Oo 0 


OoO 


OoO 


0,0 

OoO 

OoO 

OoO 

OoO 

OoO 

0,0 

0,0 


OoO 


OoO 


0,0 

OoO 

OoO 

OoO 

OoO 

OoO 

OoO 

-8o 02895E 

22 

— 1 o 81 856 E 

22 

-9o S1459E 

16 

0,0 

OoO 

OoO 

OoO 

OoO 

OoO 

0,0 

0,0 


OoO „ 


OoO . 


OoO 

0,0 

OoO 

OoO 

Oo 0 

0,0 

OoO 

OoO 


OoO 


OoO 


OoO 

OoO 

Oo 0 

0,0 

OoO 

CoO 

0,0 

0 , 0 


0,0 


OoO 


0,0 

0,0 

OoO 

OoO 

0,6 

OoO 

OoO 

0,0 


OoO 


OoO 


0,0 

OoO 

OoO 

OoO 

OoO 

0,0 

0,0 

0,0 


OoO 


OoO 


OftO 

0,0 

OoO 

0,0 













Figure 2 17 
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PLOT (TYPr=! v PUlSF/Tl'iF=0«5> 


SPSCIF'PO INPUT I* 

TMPUlsr» STRFAGTH - J,fO 0 CC 6 OC 


THr TRANSFORM TP TFF RESFONS 6 15 



SX*, OF S 

MJ-ER, CrTFFSo 

OrKFM© COFFF $ 0 


0 

8,02855F 22 

J ©3296°F 19 


1 

1©81F56P 2 ? 

2 0 58672F 18 


o 

*0 8145 SF 15 

c o 45604? 17 


3 

OoO 

4 0 4954°6 16 



4 


0©0 

2© 20682F 

J 5 








s 


OoO 

60 15044F 

13 








6 


OoO 

9©2S0336 

11 







— 

7 


0©0 

4© 27796E 

09 









SITPA = OoO 











— 





— 

- 


- 





TIME 

MAG 


T IMF 

MAG 



TIMF 

HAG 


TIME 

MAG 


OoO 

OoO 


1© 6CQF-01 

4 0 S6<56£ 

04 


3©200E-01 

lo 23022F 

04 

4© 800E-01 

-lo 56420E 

04 

5o OOOF-03 

^0 31173 

■ 0 ? 

lo 6SCF-01 

4o6“454E 

04 


3o 250E— 01 

1 © 04229F 

04 

4o850£-01 

-1© 551 19E 

04 

lo nco£-o 2 

2 © e 3G25F 

00 

lo 7 OOF-Ol 
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CONTROL CARD - 
CONTROL CARD - 


CONTROL CARD - 
CONTROL CARD - 

CONTROL CARD - 


TITLE CARD 
NASAF 
YINPUT 12 1 
IOUTFUT 3 4 1 IR1 
R1 2 4 . 37M 
C23 2 3 2E10 PF 
LO 1 4 33 
OUTPUT 
WORST CASE 
TOL=LO= 50 
V I OUTPUT/ WINPUT 
ROOTS, POLES 

PLOT (TYPE = IMPULSE /TIME - 10) 
PLOT (TYPE = FR/FR = . Ol/TO = 1E2) 
PLOT (TY=WORST/FR = . Ol/TO = 1E2) 
VR-/VVINPUT 

EXECUTE J 

ANOTHER OPTIONAL TITLE CARD 
TREE 

El (1-2) = 1 
DJ2/IRE1 (3-4) * 1 
RE1 (2-4) = . 37M 
CE, (2-3) = 2E10PF 
LJ, (1-4) = 33 
END 

SENS-REl 

SENS=LJ 

VLJ/VE1 

PLOT (TY = SI/AM = 2/FR = 10) 

PLOT (TY=SE/FR=lE-3 /T0=1E6 /EL-RE1) 
END 

PRECEDING PAGE BLANK NOT FILMED 


1st Problem 


> 2nd Proble 
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CIRC (5E6) 
El (1-2) = 1 
R2 (2-3) = 2 
L3 (3-1) = 1 
C4 (3-1) = 4 

CONTROL CARD -> END 

IC4/VE1 

ROOTS 

CONTROL CARD - END 

STOP 


3rd Problem 




Figure 2 23 Sample Data Decks for NASAP— 70 



Figure 2 24 Example of Outputs Taken Across Two or More Circuit Elements 
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2. 4 Coding Tips 

As is usually the case with any application program, a number of 
design tricks will evolve as the circuit designers become familiar with its 
operation. Some of these tips are described here. 

Outputs Taken Across Two or More Circuit Elements 

Quite often a circuit designer needs the transfer function expression 
taken across more than one circuit element, and with the capabilities of 
NASAP-70, as many computer runs as there are circuit output elements 
will be required. To circumvent this difficulty, an extra current source 
can be inserted across the desired output terminals and the output voltage 
measured across it (see for example Figure 2.24). This element can be 
viewed as an ideal voltmeter, that is, a device that extracts a constant 
value (which is always zero) of current from the circuit. By adding the 
output current source (1 = 0), provision has been made for a general 
method of solution. 

(As an added note, an ideal ammeter which is a short circuit is a 
voltage source whose voltage is a constant value of zero.) 

Total Output Response 

This design tip is really a reminder to the circuit designer of how 
the output response of a circuit should be handled when a number of active 
devices and energy storage elements are present. For such cases NASAP-70 
requires that as many transfer functions as there are active devices and 
elements with energy stored m them be computed, relating these devices 
to the output requested. The transient response associated for each trans- 
fer function is then computed and summed all together to form the total 
output response. It is important to not e that any charged capacitor with V 
volts has to be replaced by an uncharged capacitor m series with a battery 
of Vq volts 
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V, 


c=> 


-• a 



Also, any inductor L with an initial current of I q through it has to be 
replaced by an inductor placed in parallel with a current source I 






These sources are considered like any other active device, and thus their 
presence must be reflected in the desired output response. 

There are approximation-oriented guidelines by which a tree 
selection procedure should be implemented. For low frequency approxi- 
mation, capacitors should be chosen as links while inductors should be 
chosen branches (as much as possible while still retaining a tree structure.) 
Conversely, high frequency approximation results m inductors chosen as 
links while capacitors are chosen as branches. The practical underlying 
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reason is that while a zero is well represented and well behaved on a 
computer, <*> *- 1/0 causes error and havoc on the machine and thus will 
not be accepted by the algorithm This means that if one requires low as 
well as high frequency approximations for the same problem, this problem 
should be submitted as two problems with two different trees Similarly, 
elements with relatively large impedances compared with the circuit (for 
example, grid -plate tube impedance) should always be chosen links. (To 
set I •*- 0 which means grid current equal zero. ) On the other hand, elements 
with relatively small input impedances (r^ m some transistors) should 
always be chosen branches (To set V 0). 

In an approximation, branches can be collapsed or links can be 
opened without disturbing the tree structure. This fact can be verified by 
observing the example problems. Hence, by carefully selecting elements 
to be links or branches, foresight m design can be incorporated into circuit 
description and a great deal of flexibility m calculations can be achieved. 

2. 5 NASAP Analysis of Nonlinear DC Circuits * 

The basic procedure for analyzing four classes of nonlinear depend- 
encies is described (1) Nonlinear controlled source dependent on current 
or voltage m the circuit, (2) Nonlinear controlled source dependent on a 
parameter external to the circuit such as temperature, (3) Nonlinear 
resistor dependent on current or voltage associated with its terminals, and 
(4) Nonlinear resistor dependent on a parameter external to the circuit. 

A method for obtaining models for nonlinear elements is presented 
and is used to establish a model for an exponential nonlinearity This 
model is used in the analysis of transistor bias circuits. 

Also included are the analysis procedures for power supply regulator 
circuits using the real s evaluation option. This analysis produces results 
related to the load and line regulation properties of the regulator. 

-Jj. 

This section has been taken from the work presented m references 9 and 10. 
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2. 5. 1 Modeling Circuit Element Variations 


Linear and nonlinear circuit element variations m a resistive circuit 
can be simulated with the use of the PLOT(TYPE=RE) capabilities of the 
NASAP program which results in a real variable evaluation of the transfer 
function. Consider a variable circuit element A(x) where A may be a 
resistor, a current source, or a voltage source and x may be a current, 
a voltage, or some external parameter such as temperature. The function 
A(x) is approximated by a ratio of polynommals using either approximation 
methods or trial and error. 

A <x)=|g (2.1) 

The variable x is replaced by s and a circuit is synthesized which 
has a transfer function or an input immitance~given by P(s)/Q(s). When the 
TYPE=REAL option is used, this circuit will simulate the variation of the 
circuit element A(x) if the range of s is the same as the expected range of 
x. It should be noted that since the circuit is used for simulation purposes 
only, it does not have to be physically realizable, l. e. , controlled sources 
or negative circuit elements may be used. 

The method for using this model m computer analysis of a circuit 
depends on the circuit element and variable which A and x represent. In 
Cases I and II of the discussion which follows it is assumed that P(s)/Q(s) 
is realized as an input impedance. If the realization is an input admittance 
or a transfer function, relatively minor modifications are required. 

Case I 

A is a controlled voltage or a current source and x is a voltage or 
a current m the circuit. 

The dependency function A(s) is synthesized as an impedance and a 
current generator of value unity is connected to the impedance. This 
auxilliary network is hinged to the network which is to be analyzed. The 
nonlinear dependent source m the network is replaced by a source which is 
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dependent on the voltage across the auxilliary network. The transfer 
function x/mdependent source is specified and the TYPE=REAL option is 
used. The solution for the circuit is obtained from the tabular printout or 
the graphical plot as the value where x = s. If x is not the desired output 
variable, the circuit is recoded with A(x) replaced by its known value from 
the above solution. The auxilliary network is eliminated and the desired 
output variable is specified. 

This analysis is applicable when the circuit contains no more than 
one variable source. 

To illustrate the method, consider the circuit of Figure 2. 25. Let 
R = 2 and assume that V is a function of I and is adequately approximated 
by 


vdj) = 


v + v 5 

h +i 


0 < I < 1 


( 2 . 2 ) 


A pencil and paper solution results m 


I = . 921 , V = .0795 
1 o 


(2. 3) 


For computer analysis an impedance is synthesized for which 


Z(s) = 


2 , 

s + s - 5 
s + 1 


= s 


5 

s + 1 


(2.4) 


A circuit realization of this impedance is shown m Figure 2. 26. The 
auxilliary network is hinged to the basic circuit with R2 =2, II = IR7 and 
V2 = VR6. Note that the R5, R6 resistance combination is used for voltage 
measurement only and could be replaced by a single, large valued resistance. 
The transfer function IRl/VVT is specified and a frequency of .915 to .925 
m steps of .001 is specified. The frequency range is chosen on the basis 
of the expected "ballpark" value of the current IR1. If a good estimate of 
IR1 cannot be made, a larger frequency range is specified with larger 
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Figure 2 25 Circuit for Example 



R3 =2 




Figure 2 26 Computer Analysis Models 


increments and more than one pass on the computer may be necessary to 
obtain IR1 to the desired degree of accuracy. 

The computer analysis results m 


IR1 _ oe -7 - s + s 2 
VV1 " * 1 + s 


(2. 5) 


and the printout table gives IRl = s for s = . 921. The value of V2 is then 
obtained as V2 = -1. 682. The basic circuit is then coded using this value 
of V2 and the result is VR3/VVT = .0795. 
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Case II 


A is a controlled voltage or current source and x is an external 
parameter which is known to vary over a specified range. 

In this case, the controlled source is generally dependent on a 
current or voltage m the circuit (denoted by y in this discussion) and the 
dependency factor is a function of an external parameter x. The h^^I^ 
generator m the transistor dc equivalent circuit where h is temperature 
dependent is an example of this situation. The circuit is coded with yA(x) 
replaced by a generator, V(s), which is dependent on the voltage across 
the auxilliary network. The desired transfer function is specified and the 
SIGMA option is used. The computer solution gives the relation between 
the output variable and x m functional (replace s by x), tabular and 
graphical forms. This method is applicable for any number of variable 
sources m the circuit which depend on the same external parameter x. 

The circuit of Figure 2. 25 is used to illustrate the procedure with 
R = 2 and V dependent on I and temperature according to 

V = I 1 10 ^ T - 50 (2.6) 


A hand solution results m 

v _ T 2 + 3T - 3 
° T 2 + 5T - 1 


(2.7) 


For computer analysis the nonlinear dependency has the same 
functional form as m Case I and therefore Z(s) of Figure 2, 26 simulates 
the temperature dependency. The auxilliary network is hinged to the basic 
circuit with II = IR1 and V2 = VR6. The transfer function VR3/VV1 is 
requested and a frequency range of 10 to 50 m steps of 1 is specified. The 
result is 


VR3 

VV1 


o 

“3 + 3s + s 

— ~2 
-1 + 5s + s 


( 2 . 8 ) 
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A table is printed out and a graph of the function over the range 
s = 10 to s = 50 is plotted. 

Case in 

A is a resistor and x is the voltage across or the current through 
the resistor. 

The circuit is coded with R(x) replaced by Z(s). The transfer function 
x/mdependent source is specified and the TYPE=REAL option is used. The 
solution for the circuit is obtained from the tabular printout or the graphical 
plot as the value where x = s. If x is not the desired output variable, the 
circuit is recoded with R(x) replaced by its known value and the desired 
transfer function is specified. This analysis is applicable when the circuit 
contains no more than one nonlinear resistance. 


In the circuit of Figure 2.25, let V = 

! 2 2 + V 5 
R( V - TTT 




-2 and R be dependent on I . 

Z 


(2.9) 


The solution is 

I„ = 2. 155 , V = -.771 
2 o 


( 2 . 10 ) 


For computer analysis, the basic circuit of Figure 2. 26 is used with R2 
replaced by Z(s) and V2 = -2 1R7. The transfer function IL1/VV1 is requested 
and a frequency range of 2. 15 to 2. 16 m steps of .001 is specified. As m 
Case I, it may require more than one pass on the computer to determine the 
proper frequency range and increment which will result m the desired degree 
of accuracy for IL1. The computer analysis gives 


IL1 

W1 


2. 67 


1 + s 

-4. 333 + 1. 667s + s 2 


( 2 . 11 ) 


for which IL1 = s at s = 2. 155. The value of R(L) is evaluated as R(I ) = . 5702. 

Zt Zi 

The basic circuit is recoded using this value of R and the above value for V. 

The analysis results m VR3/VV1 = -.771. 
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Case IV 


A is a resistor and x is an external parameter which is known to 
vary over a specified range. 

The circuit is coded with R(x) replaced by Z(s) and the desired 
transfer function is specified. The computer solution gives the relation 
between the output variable and x. This method is applicable for any number 
of variable resistances in the circuit which depend on the same external 
parameter x. 

As an example, let V = 2 and K be a function of temperature m the 
circuit of Figure 2. 25. 

2 

R(T) = T * ^ ~ 5 10 < T < 5 0 (2. 12) 


A hand solution gives 


V 

o 


T 2 + 3T - 3 
T 2 + 1. 667T - 4. 333 


{2. 13) 


In the computer analysis, the basic circuit of Figure 2. 26 is used with R2 
replaced by Z(s) and V2 = 2IR7. The frequency range 10 to 50 m steps of 1 
is specified and the computer output is 


VR3 

VV1 


= . 667 


-3 + 3s + s 2 

-4.333 + 1. 667s + s 2 


(2. 14) 


A table is printed out and a graph of the function over the range 
s = 10 to s = 50 is plotted. 

2.5.2 Modeling Temperature Variations of Transistor Parameters 
The parameters of the transistor dc equivalent circuit, h„_, 

b hi Bhi 

and I , are temperature dependent. The functional form of the dependence 
may vary depending on the construction of the transistor. Generally, graphical 
plots of the dependencies are available from the manufacturer on request. 
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Analytical investigations predict the following nominal temperature 
variations. 

h FE (T) = h FEo (l - 25 B + BT) (2. 15) 

where h is the value of h aat 25°C 
jc EO Jc E 

T is expressed in °C 

B = . 02 for Ge and , 013 for Si 

V be (T) » V BEo + 25D - DT (2. 16) 

where VT „ is the value of VT „ at 25°C 
BEo BE 

D = . 002 to . 0025 

I (T) = I 2 <2. 17) 

CO coo F 

where I is the value of I at 25°C 
coo co 

F = 10 for Ge and 7 for Si 

The model for temperature variation of h requires 

Jd E 

Z(s) = 1 - 25B + Bs (2. 18) 

while the V__ model must satisfy 
BE 

Z(s) = V„_ + 25D - Ds (2. 19) 

BEo 

Simple series RL circuits will satisfy these relations with R = 1 - 25B and 

L = B for the h model and R = + 25D and L = - D for the V model. 

h E BEO BE 

The current generators used to complete the auxilliary networks will have 

value h I for the h model and unity for the V model. 

.bEO B Jb E BE 

The circuit to simulate I variation is somewhat more complicated 

co 

than the h and V models. As indicated by Equation (2. 17), I doubles 
FE BE CO 

every 10°C for germanium and every 7°C for silicon. A trial and error 
method results in the following approximating functions for the temperature 
range 0°C to 75°C. 
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T + .471698 


< 2 . 20 ) 


I „ (T) = I 128.485 -Gr- 
eece coo m 2 


I _(T)=I 202.650 

coSi coo 


T - 159. 394T + 6632. 58 
T - 12. 5480 


( 2 . 21 ) 


T - 149.500T + 5690. 00 

Figure 2. 27 shows a possible synthesis of the normalized approxi- 
mating function I (s)/l . The values of the elements are listed below, 

co coo 


C 

R, 


Ge 

.007783 

8037 

.0090349 
. 019154 


Si 

. 0049346 
-1. 4797 
-. 640268 
.0510255 


Although these circuits model temperature variation of I , they do 

not satisfy the transistor model since (la 1)1 is required and h„_ is 
J FE co FE 

also temperature dependent. This product can be modeled with the configu- 
ration shown m Figure 2. 28 If » Z(s) for the real s range of 

Y h {s) 

interest, then 


1 = h FEo Y h (s) Z I (S) 
co 


( 2 . 22 ) 


The control variable which is required for the transistor model is 
I = 


h FE (s) + 1 


I (a) 

co 


since Z T (s) = I (s)/l , the correspondence is 

I co coo 

co 


or 


h FEo Y h <s> 


Y h (s > 


h FE ,s) + 1 


COO 


h__ (1-25B+BS) + 1 

I 

_ FE 

coo 


h 


FE 


(2. 23) 


(2. 24) 


A summary of the models is presented in Figure 2. 29 where a 
complete transistor circuit is modeled. The VI, R1 combination is included 
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z, (S ) 

CO 




Figure 2 27 Model for Ico Temperature Variation 



Figure 2 28 Configuration to Obtain Product Relation 


in this model so that V2, 14 and 15 can be constant amplitude controlled 
sources. If a plot of the collector current is required, the transfer function 
IR5/VV1 is specified. A typical printout for the circuit shown m Figure 2. 29 
using the (TYPE=REAL) option is included m Appendix C. 

2. 5. 3 Regulation Curves for Power Supply Regulators 

The TYPE=REAL option of the NASA-70 program is useful in. obtaining 
power supply regulation curves. In the circuit of Figure 2. 30, R2 is a large 
valued resistor which is used for measuring voltage across the auxilliary 
network. The voltage across R1 is constant, the voltage across LI varies 
linearly with s, and the voltage across R2 is the sum of VR1 and VL1. For 
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GERMANIUM TRANSISTOR 



h le =1K 

h oe - 25 x 10 


V, 


FEo 

BEo 


coo 


- 50 
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Figure 2 29 Model for Simulation of Temperature Variation Effects in a Transistor Circuit 
*Resistors Included in Model for Voltage Measurement 
**Resistor Included in Model for Current Measurement 
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Figure 2 30 Power Supply Regulator Circuit Analysis 

load regulation data, V is made dependent on VR1 and I is made dependent on 
VL1. Line regulation information is obtained if V depends on VR2 and I 
depends on VB1. If V depends on VR2 and I depends on VL1, a regulation 
curve is obtained for simultaneous variation of line voltage and load current. 

11 

2. 6 Network Partitioning Schemes for NASAP-70 

Assume a general network is partitioned into several smaller sub- 
networks as shown in Figure 2. 31. The input and output variables, and 

X , can be located arbitrarily. Note that the partitioning conveniently lends 
& 

itself to transfer function formulations Subnetwork 1 ports are identified by 

X , 1 , and lo> the other subnetwork ports are numbered similarly, 
i. A J 

2. 6. 1 N-Port Interconnection Methods 

Some interconnection methods are briefly described here to make the 
discussion self-contained. A detailed description can be found m reference 
12 . 

13 

Laemmel Method The Laemmel Method is employed to connect two sub- 
networks m cascade as shown m Figure 2. 31. This technique utilizes the 
open circuit impedances of the network. The input and output ports of and 
N are m groups of a and b, respectively. The network N obtained by 

C 

cascading N 1 and N has its input and output ports m group a of N 1 and group 

1 a J- 

b of N , respectively. 

a 
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1 2 J r 



Figure 2 31 A Complex Network Partitioned into Several Smaller Networks 


The impedance matrix of subnetwork N is defined as 

u aa u ab 
u = 

_u ba X? h _ 


where 

U aa = (u 1=1 q, 3=1 q), IJ ab = (u 1=1 ---q, 3 =q+l r). 

U ba = (u i=q+l r, 3=1 q), U bb = (u i=q+l r, 3 =q+l r) 

x 3 

are the open circuit impedances relating ports of the subnetworks. Note 
that the U matrix, and succeeding matrices, are partitioned according to 
the grouping of the input and output ports. 
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T ba = (t I=s+1 — w, ] = 1 — s), T bb 

1 3 



i=s+l — w, j=s+l w) 


are open circuit impedances relating ports m N 


2 * 



Figure 2 32 Connecting Two N Port Subnetworks in Cascade 


The overall open circuit impedance of N , obtained by interconnecting 


and (Figure 2. 32), can be computed by Laemmel 1 s relations 

-1 


z aa = u aa 


U ab (Tjhh + T aa ) U ba 


z ab = yab ^ybb + T aa^ 1 T ab 

Z ba = T ba (U bb + T aa f 1 u ba 

z bb = _ T ba (u bb + T a a) - 1 T ab + T bb 


(2. 27) 
(2. 28) 
(2. 29) 
(2. 30) 


where 


T = 


z aa z ab ' 


z ba z bb 


(2. 31) 


Laemmel* s relations can be applied repeatedly to interconnect 
subnetworks of the form shown m Figure 2. 31. For example, consider the 
first three subnetworks of row 1. Subnetworks 1 and 2 are combined to form 
subnetwork 1, 2 as in Figure 2. 33(b). Subnetwork 1, 2 is rearranged and 
connected with subnetwork 3 to form subnetwork 1, 2, 3 of Figure 2. 33(d). 

This process is continued until all subnetworks of row 1 have been inter- 
connected. In an identical manner, the subnetworks of rows 2 are intercon- 
nected, producing t subnetworks. This is depicted in Figure 2. 34 The 
subnetworks are interconnected to reconstruct the original network. 
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(a) 



b 


(b) 



(<!> 


Figure 2 33 Interconnection of Subnetworks 

The total number of times the Laemmel method is applied m forming 
the original network from the group of subnetworks given m Figure 2 31 is 
tr-1, where t is number of rows and r is the number of columns of the 
subnetworks. 

The following guidelines should be adhered to m subdividing a net- 
work for an analysis by the Laemmel Method 

1. No mutual coupling should exist between components of different 
subnetworks, 

2. A dependency relationship must be contained within a subnetwork, 

3. The port of a subnetwork must be taken across an element which 
is part of a closed mesh, such as shown m Figure 2. 35. (This 
restriction is due to NASAP-70 rather than to the methods them- 
selves). 

Cascade Parameter Method When a network can be partitioned into cascade 

14 

subnetworks as shown m Figure 2. 36, the cascade parameter method is 
usually employed to compute transfer functions rather than the Laemmel 
method because of the reduction in computing time achieved. The cascade 
parameters relate the terminal voltages and currents for the overall network 
by the expression 
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Figure 2 34 Subnetworks of the Overall Network Figure 2 35 A Mesh of a Subnetwork 


where 



(2. 32) 


(2. 33) 


The transmission parameters A^, C , and for each subnetwork are 
the inverse voltage transfer ratio., negative inverse of the transfer admittance, 
the inverse transfer impedance, and the negative inverse current transfer 
ratio, respectively, of the input port to the output port. A_ l and are 
calculated with the output port open, B and are calculated with the output 
port shorted. The transmission parameters can be computed by NASAP-70 
and are in general ratios of polynomials m S. 
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Figure 2 36 Cascade Connection of Two Port Subnetworks 


Parallel Interconnection Method Another means of network interconnection 

is the paralleling of ports of networks as shown m Figure 2. 37. Murti and 
15 

Thulasiraman show that two n~port networks described by short circuit 
admittances and having no internal vertices, can be combined m parallel if 
their edge and port orientations are identical, and also if their modified cut 
set matrices with identical row and column order are equal. 


and 


Let the short circuit admittance matrices of networks N and N be 

X Cl 


Y i = 


aa 


yba 

1 


„ab 


Y 


bb 


(2. 34) 


aa 


ab 


V 


ba 


(2. 35) 


Y 


bb 


The individual entries of these matrices are defined similar to the Laemmel 
matrices except that short-circuit admittances are involved. 


Assuming the interconnection criteria are satisfied, the short 
circuit admittance matrix of the combined network is 
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Figure 2 37 Parallel Connection of Two N Port Networks 

2„ 6. 2 Network Interconnection Examples 

The network shown m Figure 2. 38 was arbitrarily constructed to 
illustrate Laemmel 1 s Method. Assume that /I^ is required. Let this 
network be subdivided into two subnetworks as shown in Figure 2. 39 



-Figure 2 38 
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Figure 2 39 


The port equations for subnetwork U are 


v u 

a 


u aa 



I w 

a 




o bb 


£ 


where 


U aa = (u^ i = 1, ] = l), U ab = (u^ i = 1, 3 = 2, 3), 

U ba = (u xj x = 2, 3, 3 = 1), U bb = (u j i = 2, 3. j « 2. 3), 


V U I U - I U 
3 a 1 ' 


The port equations for subnetwork T are 



T 

V 

a 


T aa 

T ab 


i T 

a 


T 

v b 


T ba 

T bb 


£ 

and those for network Z are 




v z 

a 


z aa 

z ab 


i z 

a 


v b Z 


z ba 

„bb 

jLt 


* 


(2. 37) 


(2. 38) 


(2. 39) 
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The matrices of (2. 38) and (2- 39) can readily be defined by an examination of 
Figures 2. 38 and 2, 39. 


The desired transfer function is 


V 1 ! 


r 2=0 “ 221 = Zba ’ 


(2. 40) 


-I 


From Equation (2. 29) Z ba = T ba (U^ b + T aa ) . Therefore the following 

impedance parameters are computed utilizing NASAP- 70 * 31 ** 32 ’* 11' *12* 

*21**22' U 22 J U 32’ u 33* U 21’ and u 31' Slnce the subnetworks are lumped, 
linear and passive, then t = t and u = u , hence t . and u need not be 

JL 4 Ci J. ci O O ci ci L O ci 

computed. The parameters computed are listed. 


u 


+6. 872E + 10S + 1.000E + 09S' 


12 +1.000E+18 + 3. 000E + 15S + 1. 002E + 12S 2 + 3. 00OE + 06S S + l. 000E + 00S 4 


(2.41) 


Let the denominator of u, _ be equal to u . then 

12 den 


u 


+ 6. 872E+10S + 1. OOOE+OQS' 


12 


u 


(2. 42) 


den 


U 13 U 31 


1. 000E + 21 + 1.000E + 18S + 1. 000E + 12S 


u 


den 


u 


1. 000E + 15S+ 3. 000E+ 12S 2 + 1. 001E + 09S 3 + 1. 000E + 3S 4 


22 


u 


den 


U 23 U 32 


-1. 000E + 12S 


u 


(2.43) 
(2. 44) 


den 


2. 000E + 21+1.001E + 18S + S. 000E + 12S 2 +1. 000E +06S S ,„ 

u 33 = — (2-«) 

den 

= 1. 000E+06 + 1. 002E+03S + 3. 0Q0E-03S 2 + 1. 000E-09S 3 
11 1. 000E+03 + 2. 002E+00S + 5. OOOE-06S 2 + 1. 000E-12S 3 


Let the denominator of t., to be equal to t . then 

11 ^ den 
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(2. 46) 


11 


1.000E+06 + 1.002E+03S + 3. 0Q0E-03S 2 + 1. 000E-09S 3 

^den 


, = _ -1. POPE - 09S* 

12 ~ 21 t . 

den 


'13 


1. 000E+03S + 2. 000E-03S 
^den 


1. OOOE+OOS + 2. O0E-03S 2 + 3. OOOE-09S 3 


22 


, 1.000E-09S 

23 32 " ' t , 

den 


den 

3 


(2. 47) 
(2. 48) 
(2. 49) 
(2. 50) 


Substituting the appropriate matrices elements of (2. 37) and (2. 38) into (2. 29) 
the transfer impedance Z ^ is computed 


- 


U 22 

U 23 


T 

11 

T 

12 


-1 

U 21 

Z 21 = Z ba = l T 31 T 32^ 


U 32 

U 33 

+ 

T 

21 

T 

22 



U 31 


(2. 51) 

A computer program was written m Fortran IV to solve Equation (2. 51), the 
result is 

z = +1. 3+4E+38S 2 -t 1. 001E+39S 3 +5. 010E+36S 4 ++. 036E-f33S 5 

21 +2.000E+48S°+1. 30.1E+46S 1 + 3. 009E+43S 2 + 3. 026E+40S 3 + 1, 333E+3+S 4 

+2.052E+30S 6 + 2.414E+25S + + 2. 086E+21S 8 + 1. 313E+16S 9 
+2. 189E+33S 5 +4. 298E+28S 6 + 2. 299E24S + + 2. 59+E+19S 8 +1. 20SE+14S 9 

+2. 908E+10S 10 +2. 602E+04S 11 +9. 002E-03S 12 + 1. 000E-09S 13 

in ii i? 13 14 

+2.++3E+08S +3.286E+02S +1. 931E-04S +5. 201E-11S +5. OOOE-18S 

(2. 52) 

Also Z was computed directly for network Z by means of NASAP-70. 

Li 1 - 

This result is 


2-79 



_ -7. 885E04S 2 + 1. 001E09S 3 + 3. 001E03S 4 

21 2. 000E18+3. 008E15S+1. 021E12S 2 +1. 204E07S 3 

+1. 002E00S 5 + 1.000E-06S 6 

4 5 6 7 ' 2 * 

+1. 037E03S +7. 031E-03S +1. 201E-08S +5. 000E-15S 

The frequency response of Equations (2. 52) and (2. 53) was plotted 
as shown in Figure 2.40. A comparison of the two curves of Figure 2. 40 
gives an indication of the relative error between the two methods for com- 
puting Z ^ . The peak at the upper frequency range of the curve for (2. 52) 
is a result of solving each of the two networks separately and then combining 
these results to obtain the solution for the interconnected networks. One 
possible explanation for this is loss of significance error which can occur 
when two numbers of similar magnitudes are added. 


O FREQUENCY RESPONSE OF EQUATION (2.52) 
A FREQUENCY RESPONSE OF EQUATION (2,53) 



Figure 2 40 Frequency Response of Laemmel 
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A cascade connection example illustrates how the computation time increases 
as the number of cascaded stages increases. The circuit for each stage is 
shown m Figure 2.41. 

The desired transfer function. I ,/l , can be calculated using 

out in' & 

NASAP-70. This was done first for one stage, then an identical stage was 

connected m cascade with this first stage to form a, two stage amplifier. A 

coupling capacitor was placed between the collector of the first stage and 

the base of the second stage to provide DC isolation. NASAP-70 was again 

used to compute the transfer function I , /I . where I . is the current 

out m out 

through the collector resistor of the last stage. This process was continued 
until five stages had been cascaded. The results, which were calculated by 
an IBM 360 computer are plotted m Figure 2.42. 



Figure 2 41 A Single Stage Amplifier 



Number of Stages 


Figure 2 42 Results of Cascading Amplifier Stages 


From this curve it can be seen that the computer time required 
increases rapidly as the number of cascaded stages is increased. 
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Calculations were made to predict the approximate theoretical time 
required to compute the desired transfer function when the cascaded stages 
are interconnected by the Cascade Parameter method. It was assumed that 
1. 1 seconds of CPU time was required to compute each parameter. The 
CPU time required to multiply the matrices of the individual stages was 
neglected. 

If two stages were cascaded the resultant overall matrix would be 


A 

B 


A. 

B, 


A 0 

B„ 




1 

1 


2 

2 

C 

D 


C, 



C 

D_ 




1 

1 


2 

2 


The desired parameter is, D = B_C + D D To compute D, only B ,C., D , 

ALLA ALL 

and D need to be calculated. Hence, the total assumed time required to 

A 

compute D is 4X1. 1 = 4. 4 seconds. The D parameter for three, four and 
five cascaded stages was computed in a similar manner. These theoretical 
computation times are plotted m Figure 2. 42. It is evident that if more 
than four stages are cascaded, then a definite time savings will result if the 
desired transfer function is computed by the Cascade Parameter method. In 
the preceding example, the transfer function I oui; /^ in was computed, whereas 
the parameter D is defined as, D = — I /l Q | ^ owever i param- 
eter D can be computed and then inverted to give the desired transfer function, 

2. 7 Computational Errors 

This section is concerned with the computational errors associated 
with NASAP-70. The impact and effect of errors at individual stages of 
computation are given, and m some cases recommendations regarding their 
minimization are also included. 

2.7.1 Flowgraph Algorithm Errors 

If the flowgraph algorithm and application of the Shannon -Happ 
formula were implemented utilizing a symbolic, or tagging approach no 
errors would be introduced into the derived transfer function. The NASAP-70 
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program discussed here performs all operations on numerical data. Thus, 
the constraint of digital computing introduces errors. Definition of these 
errors and how they relate to NASAP-70 follows. 

16 

Input /Output Errors 

Circuit parameters are input to NASAP-70 m decimal floating point 
notation. Binary arithmetic units require that the input data be converted to 
floating point notation compatible with the machme. Errors are introduced 
in program working data because there is no one-to-one correspondence 
between fractions of different radicles when operations are restricted to a 
finite wordlength. The magnitude of the error is dependent on machine hard- 
ware and the algorithm used to perform the conversion. 


After required calculations are completed, the internal binary results 
are converted back to decimal notation. The conversion effects only the last 
Significant digit of each coefficient and is quite minor. Also, conversion is 
not performed when further operations are carried out m the transfer function. 
For these reasons, no attempt is made here to analyze these errors. 


An example of actual input /output errors (IBM 360/75) is shown m 
Figure 2. 43. 


Round-off Error 


Figure 2 43 



Round-off errors result directly from the finite wordlength of the machine 

v. 

Errors can occur after bothadditive and multiplicative operations. The severe 
additivetype errors are called significance loss, andwillbe described later 
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Multiplying two numbers, each with n significant digits yields a 
product significant to 2n places. To store the product it is rounded to n 
significant digits. Wilkinson has shown that m a binary rounding system 
the floating point computation, Fi (X X . . X ), produces the error bound 

X ci XI 

E, 

-2t 

|E| S (n-l)2~ t 4- + ... (2-54) 

where 

Fi(X_,X_,...X ) = X.* X_ ...X (1+E) 

12 n 12 n 

When computing high order loops, the flowgraph technique requires 
a number of consecutive multiplications. The round-off errors introduced 
can contribute significantly to the noise contained m the coefficients of a 
computed transfer functions. Relation (2-54) shows that increasing the word- 
length, t, results m a decreasing error ratio, E. It is proposed that double 
precision arithmetic be utilized m carrying out all required flowgraph multi- 
plications. The round-off noise is located m the lower order digits. In 
most cases, results of multiplicative operations can be guaranteed to the 
significance of input data. 

An example of round-off error is shown m Figure 2.44. The errors 
are totally attributed to round-off error because (1) Component values were 
selected such that the binary equivalent of the input data was exact, 

(2) Number of calculations and element values indicate no significant loss 
could have taken place. 



Figure 2 44 


Output requested. 1^. /V^ = T 

T = I /V =1/3 
True I I 


'NASAP 


3+ 


2x 10 


-5 


+ 3 709x 10 


-2 


3S +0. 667S 
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Loss of Significance Errors 


Loss of significance errors occur during floating point addition 
operations involving two numbers of opposite sign. The maximum error, E, 
resulting from the floating point addition X + Y is bounded by 



where 

Fi(X + Y) = (X + Y) {1 + E) 

The error impact is largely dependent on the magnitude and polarity 
of the parameters involved, and the order m which computations are carried 
out. Two situations demonstrate the extent of significance loss. First 
consider a simple floating point addition of two numbers of opposite sign but 
comparable magnitudes. The resulting sum is located m the low order 
positions, the same locations affected by conversion and round-off errors. 
When the sum is left -shift normalized, the true precision of the result is 
disguised. The second case involves a set of repeated additions where the 
order of calculation can introduce loss of significance. 

Significance loss errors can occur m the calculations associated 
with the flowgraph technique. Circuits containing elements with values 
covering a wide range are especially prone. The table below presents three 
ways in which significance loss can be detected, controlled or eliminated 


METHOD 

PURPOSE 

Compare results of normalized 
and non -normalized arithmetic 

Detection 

Time scaling 

Minimization or 
Elimination 

Optimum tree 

Minimization or 
Elimination 
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The first approach employs a two pass system with the first pass 

1 8 

utilizing regular floating point arithmetic. During the second pass, the 
arithmetic is changed such that sums are not left -shift normalized. When 
the number is subsequently required m another calculation, the appropriate 
number of zeros (necessary to align the two operands) are shifted into the 
least significant bit positions. This scheme defines a lower bound for the 
calculation. The results of the two passes are examined and significance 
loss has occurred if these numbers are not equivalent. The significance of 
the calculation is considered to be equal to the number of digits which are 
identical. The calculation of Figure 2. 43 is not prone to significance loss. 


T = 



normalized 


1.00025 

1. OOOOOS 3 + 2. 00000S 2 + 2. 00050S + 1. 00025 


T = 



unnormalized 


1. 00025 

1. 00000S 3 + 2. 00000S 2 + 2. 00050S + 1. 00025 


Figure 2. 45 is a problem vulnerable to significance loss as is 
demonstrated below 


\ I / normalized 

2. 04000 x 10~ n S 2 + 1. 10709 x lO^S + 7. 19903 x IQ 7 

= 2.04000 x 10‘ 13 S 2 + 7 67740 x 10 _4 S + 1. 16400 x 10 4 

unnormalized 

2. 04000 x 10~ 1:L S 2 + 1. 10709 x 10~ 1 S + 7-. 19903 x IQ 7 

2. 04000 x 10 ” 13 S 2 + 7. 67827 x 10 ~ 4 S + 1. 16640 x 10 4 



Figure 2. 46 shows how the span of element magnitudes m Figure 

2.45 changes as the time scale is decreased. The particular transfer function 

was computed and checked for significance loss at the various time scales. 

The results of the technique although inconclusive, tend to show that time 

1 fi 

scaling m one technique to combat significance loss. 
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(VARIANCE IN MAGNITUDE Of INPUT DATA) 2 
(MAXIMUM VARIANCE) 2 

Figure 2 47 

Another way of reducing significance loss m the computation of 
Figure 2. 45 is to select an optimal tree. An optimal tree is defined as the 
tree which, if selected, displays to the program the minimum variance 
between the magnitudes of the input data. The results of optimal tree 
selection are plotted above. 

Different input trees generally result m varying computational orders. 
The above definition can be used as a means for reducing computational errors, 
although the method itself is not foolproof The third data point m Figure 2. 47 
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is assumed to result from a favorable computational order for the particular 
tree selected and, contradictory to the definition of an optimum tree, a 
comparably good transfer function was calculated. 

-| g 

Error Prediction 

It was shown that the errors associated with transfer function 

coefficients are related directly to the number of loops of all orders m the 

flowgraph and the number and range of computations required for each loop. 

It is desirable to obtain a measure of these parameters before an attempt is 

made to derive a particular transfer function. Given the flowgraph model 

described by Figure 2. 48, it can be shown that there exists, F^= 1 /s/ 5 

[ ( 1 -t- -s/ 5 / 2) n+ ^ - (1 - 'v/ 5/2) ] n+ ^ loops of all orders, where n = 2m - 1 (the 

number of passive elements minus one) and F = Fibonacci number of order 

n 

n„ 

f, 

Figure 2 48 

If flowgraph loops of all orders are assumed to have numerical 
values of the same magnitude, then the equation below is an estimate of the 
maximum round-off error contained m a calculated transfer function coeffi- 
cient 




2. K is the number of circuit elements m a particular first order 
loop (=2 for the specific model) 

3. N = n+1/2 if n is odd 

max 

N = n/2 if n is even, 
max 
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In an attempt to predict errors for those circuits which do not 
exactly correspond to the flowgraph model. Figure 2. 49 has been drawn 
for various values of K. Experience has shown that for practical problems, 
a good average value of K lies between 2 and 3. 



0 2 4 6 6 10 12 14 16 18 20 

n - NUMBER OF FtRST ORDER t-OOPS 


Figure 2 49 


2*7.2 Impact of Coefficient Errors on AC Analysis 


The NASAP version utilizes a straight forward technique in deriving 
the AC Bode plot The programs produce a frequency response of the form 


l 

a s 

l 


b s 3 
3 


F(s) 


_ N(s) _ i=0 
D(s) q 


3=0 
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The computed coefficients, a^ and b^, can be expressed as, 

T 

a = a + Aa 
11 i 

b = b T + Ab 
3 3 3 

T 

where a and b represent the accumulated coefficient errors a and 
T i 3 i 

b^ are the true coefficients, and F(s) as 

T 

F(s) = F T (s) + AF(s) = ~ f— + AF(s) . 

D (s) 

If F(s) is assumed to be a function of its coefficients a, b for any s, then 
19 

since 


,, T T , T T. , 9f 

f(a + Aa, b + Ab) ~ f(a ,b ) — 

da 


Aa + ®1 

9b 


Ab 


for Aa « a 
Ab « b , 
it can be shown that 


p Aa 

af(s) = 2 

1=0 D (s) 

The computational errors m F(s) are approximated from an initial 

T 

estimate of coefficient errors by substituting D(s) and F(s) for D (s) and 
T 

F (s)„ These substitutions become quite laborious for functions which are 
a ratio of two high order polynomials. An alternate approach is taken. 

Coefficient errors are not likely to exceed 15 percent of the true 
coefficient values (this statement is predicated on the assumption that any 
"large" problems have been partitioned and the steps have been taken to 
avoid severe significance loss). By randomly perturbating the transfer 
function coefficient not more than ±15 percent and plotting the frequency 
response curves, the results of the above can be simulated. A band which 


s 1 - f, ^ Abs 1 
3=0 D (s) ] 
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most probably contains the true response curve will result. For example, 
the frequency response curve of Figure 2. 50 can be obtained from the circuit 
shown m Figure 2.43. 



Figure 2 50 


2 7 3 Transient Response Errors 

Errors contained m a final time domain solution after application 
of the Fast Fourier Transform can be attributed to original coefficient errors 
and algorithm errors. 

Given the results of Section 2.7. 2 

f (t) = 3[F(S)] = 3 [F T (s) +AF(s)l 

= 3[F T (s)] + 3[AF(s)] 

= f T (t) + Af (t) 

Since the errors due to coefficient deviations are simply an additive function 
to the time response, an initial approximation of these errors can be trans- 
formed directly into an estimate of time response errors. 
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The digital implementation of the Fast Fourier Transform introduces 
round-off, discretization and band limiting errors. 

20 

Gentleman and Sande have described the Fast Fourier Transform 
round-off error found m a digital environment m terms of the ratio of the 
Euclidian norm of the error sequence to the Euclidian norm of the input data 
sequence. Using the Fast Fourier Transform yield an upper bound for the 
associated Euclidian norm of 

RS 1.06 K(2n) 3 ^ 2 2~ b 

where N is the number of discrete steps taken, n^=N (for NASAP-70 n=2, 
k=12), and b equals the number of bits m the calculation mantissa. 

Figure 2. 51 shows how discretization and hand limiting errors affect 
the results of a Fast Fourier Transformation. For each curve, the function 
F(s) = s/s + u , was inverted. Discretization errors are demonstrated by 
the more noisey 1 o' curve. Band Limiting errors are shown by the poor 
initial points of both curves. 

It should be noted that the errors resulting from coefficient errors 
dominate those introduced by the Fast Fourier algorithm. 

Based upon the error analysis of a typical circuit analysis program 
such as NASAP-70 the user must be aware of the computational aspects of the 
algorithms before the results can be considered reliable. 
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Figure 2 51 
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osii2 ajojq g g aungqxx ui UM.oqs si jas-jno b jo ajdurexs uy apou aqj soaboj 
ao suajua aaqjia ji ji apou b qjiAv juapiaui si qouBuq y 0 in paurejau auB 
saqouBuq paAotuaj aqj qjm juapiaui sapou XBUtmaaj aqj ‘0 qdB.ig juauBd aqj 
uiouj paAouiau auB saqouBjq aqj uaqM jBqj saixdun uoijiuijap siqj JBqj ajojq 
jobjut suiBuiau jas-jno aqj jo qauBuq auo Are jnq xi"B 3° Tbaochsj aqj uaqjw 
pajoauuoa aq oj qdB.il? aqj sjiuiaad sun; aures aqj jb ptiB sjjred ejBuBdas ojaj 
ojui qdBuS aqj sapiAip qdBug aqj reouj paAouiau uaqjA qoiqm saqouBjq jo dnouB 
b si jas-jna y dooj pus ‘aauj f jas-jna jo sjdaouoo aqj auB uSisap jinoaio 
o; jCppaxtp urejuad qoiqjw Aoaqj qdBjg uBauix jo saijuadoud oiSBq aqi 

sqdBjgqns ajB qdBjj? pajBuBdas b jo sjuBd pajoau 
-uoo aqj, pajBjredas aq oj pjbs si ji 'pajoauuoa jou si qdBjl? b jj qdBug aqj m 
sapou ojw; Ab uaajwjaq (suoijoauip qouBuq guijoaxSau) qjBd auo jsBaj jb si auaqj 
ji pajoauuoa si 0 qdBjg y *0 qdBuS jbuiSiuo 9qj jo sapou puB saqouBuq ^puo 
sutbjuoo ( 0 ji 0 jo qdBuSqns b aq oj piBS si ,0 qdBJ§ b '0 qdBaS b uaAi0 

Auapuadap aqj jo 

aunjBu aqj jo aSpap/Aouq b aambau saaunos juapuadap qSnoqjXB AB.ijiq.iB aq ubo 
sjuantaja aAissBd aqj jo suoijaaaip juauuna aqj, asiu a§Bj[OA jo uoijoajip aqj m 
stqd oj snuiui uioaj si juauiaxs aoinos aSBjjoA aqj uoj juarouStssB juanuna aqj 
puB pauiBjau: si aomos juauuna aqj jo uoijaauip jusnano aqj jBqj ajo^ sqnsaj: 
qdBu$ aBamj paja.id.iajm jCjpBoiSAqd ptre pajuaiao ub ‘(a)g g aanSqj jo qdBiS aqj 
'spUBjs avou ji sy mojj juareino sb pajaadaajm si qatrejq JBauij b qjim pajBi 
-oossb uotjoajip aqj 'Aoeqj jina.no uj pajuaiao pappeo si qdBaS aqj ‘(aoujeb 
ub ,£q ^xjBnsn) uoijaajcip b ajuaipui qaiqM. saqotreaq suibjuoo qduuS b jj 

sapou puB saqouBuq jo uoijoau 
-uoouajui ub jo sjsisuoo jBqj x 3 Poui x'eaijBiiiaqjBui b sb pauijap aq ubo uiajS/Cs 
XBoisXqd b jo qdBxH UBauij b aouajj qdBiS jBauix aqj ui sapou unoj puB saqouBjq 
uaAas ui jxnsau sjuiod uoijounC unoj puB sjuauiaja jmouio uaAas aqj jbixj ajojq 
(q)g g aunSi.j ui qdBJ§ uBauij Suipuodsauuoo sji qjm ujwoqs si sjuauiaja uaAas 
jo jmoaio uBautx b (B)g g aunSi^ uj jop pijos b jCq pajuasajdau Xxxbusu si 
puB xuajSjCs aqjui juiod uoijounC jo uoijoauuoo x^ts-^qd b sjuasaadau qdBjg b 
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CHAPTER 3 

THEORETICAL FOUNDATIONS 

3 0 Introduction 

Fundamental to any meaningful discussion of a computer-aided circuit 
analysis /design program is the systematic treatment of the basic concepts 
behind it As shown in Figure 3 1, the theoretical treatment for NASAP can 
be separated into the disciplines of linear graph theory, flowgraph theory, 
sensitivity analysis, and the relevant numerical techniques and supporting 
computer algorithms. 

Each discipline plays a distinctive role m the operation of the program 
Linear graph theory is employed as a convenient mathematical tool to bridge 
the gap between the circuit designer and the computer A computer subroutine 
then transforms the linear graph description of a circuit into flowgraph terms 
forming the basis of the computer algorithms for subsequent output requests 
The transfer function, the principal output request of NASAP -70, is computed 
from the flowgraph description by means of the Shannon -Happ formula, the 
other user requests are based upon the transfer function formulation. 

As shown in Figure 3 1, the description of each discipline m NASAP is 
taken m the order of implementation thus the sections are numbered accordingly 

3 1 Linear Graph Theory 

The initial step m the formulation of the flowgraph relations is the 
identification of circuit elements m topological terms. Since this requires 
some background m linear graph theory, a few definitions and some basic 
concepts of how they pertain to circuit theory should be stated first A more 
elaborate treatment of graph theory can be found m a number of textbooks A 
complete exposition can be found m Kuh and Desoer 1 

The essential constituents of a linear graph are branches and nodes 
Each branch, symbolized by a line, represents a physical element of the 
system from which it is abstracted with its electrical properties A node in 
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Figure 3 1 


3-2 










that a hinged linear graph of Figure 3 4 violates the cut -set definition at the 
"hinge" and thus circuits of this type should be avoided or separated into two 
problems 

In simple terms a loop is defined as a collection of branches which form 

a closed path (ignoring the direction of flow m the branches ) A more formal 

definition can be stated- a set of n nodes A(A. A ) and a set of n 

1 n 

branches B(B^ B ) which are connected constitutes a loop m a graph G if 

AismG and B is m G, and each branch m B is incident to two nodes m A 
and each node m A has two branches m B incident to it The branches 1-2, 

3 - 2 , 4-3, 4-1 form a loop as shown m Figure 3 5 Note that a loop is defined 
independent of the direction of the arrows. 

If a subgraph G' of a graph G can be selected such that it consists of 
only branches and all nodes of G, is connected, and contains no loops, then 
the subgraph G' is called a tree (G 1 = T) (See Figure 3 2(d)) The branches 
of a tree are called tree branches or just branches, and those branches m G 
but not m T are name links 

A number of fundamental properties concerning trees are now stated 
12 3 

without proof 33 If a connected graph G has n nodes and b branches, 
then 

1. The Tree has (n-1) tree branches and (b-n+1) links, 

2 A unique path exists along the tree between any two nodes (neglecting 
the direction of the arrows if it is an oriented graph), 

3. Fundamental loops (tie sets) can be formed by taking each link 
with the unique path m the tree that exists between the two nodes 
of the link, 

4 Fundamental cut sets can be formed by grouping the set of connected 
links about a tree branch thus forming (n-1) cut sets, 

5. The cut set relations form a complementary set to the tie set relation 
(in matrix notation one is the transpose of the other), 

6 Cut set and tie set relations can be expressed unilaterally. Branch 
currents can be expressed as a function of link currents and link 
voltages as a function of branch voltages 
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3 2 Transformation of a Linear Graph to a Flowgraph — 

Disjoint Current and Voltage Relationships 

Algorithms must provide for the computer a means of producing a con- 
sistent set of determinable variables To a circuit designer this usually means 
either applying Kirchhoff s voltage law m conjunction with the impedance re - 
lationships ( Ohm 1 s law) or Kirchhoff s current law m conjunction with the 

admittance relationships. Another approach has been advocated (originally 

4 5 

by Kirchhoff himself) and is used m this manual * Basically it requires 
that Kirchhoff s current law be applied first, then Kirchhoff s voltage law, 
and finally Ohm 1 s law and dependencies 

The first step m the procedure requires that all circuit elements, active 
or passive, dependent or independent, be divided into two groups of current - 
type or voltage -type elements Naturally, a voltage source will remain a 
voltage type element, and a current source will remain a current -type element 
Passive elements, which are bilateral m nature, will be replaced by either a 
voltage -type or current -type element (l. e , replace Ohm 1 s law I = V/Z by 
either I<-V/AorV < - P=Z), the choice being somewhat arbitrary and subject 
to the conditions that Kirchhoff s two laws have to be applied independently 
(Some guidelines will be presented m the example problem of section 3 3) It 
should be emphasized that by assigning a voltage or current type element m 
place of a passive element, the bilateral characteristic is replaced by a uni- 
lateral relation 

In the following selection process, Kirchhoff s laws will be applied to 
two sets of disjoint circuit relations. Tree -link partitioning is accomplished 
by using a tree structure T m a graph G, where the voltage -current equations 
are separated into two complimentary sets. The graph G contains as its 
branches all the circuit elements. The arrow direction corresponds to the 
direction of assigned current flow. The branches of a tree T (Figure 3. 2(d)) 
are selected to be the voltage elements. The remaining elements (links m T) 
are chosen to be current elements. For this selection, a voltage at any point 
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In summary, the NASAP algorithms make use of the following 

• » * ’ < u« > < » j » 1 * > < 1 

1 A tree T m graph G divides the elements into two disjoint sets, 

„ , 2 A tree, |T m, ,grapb G allo.ws wilting ,of (p r l) ^dependent current 
equations of one set (voltage) m terms of the other (current) by 
writing current equations for any (n-1) out of (n) nodes, 

0 

3 By Gaussian elimination one obtains (n-1) cut set equations 
These equations can be expressed as unilateral current relations, 
(this will be elaborated m the example), 

4 Since a cut set and tie set are complementary, one obtains Kirch - 
hoff s voltage equations m a unilateral form as a complement of 
the unilateral current relations. 
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5 Current -voltage relations can be made functionally dependent by a 
set of unilateral elements provided that for each element one of the 
quantities (current or voltage) is known and the second quantity 
(voltage or current) is unknown These are exactly the conditions 
that the two disjoint current -voltage sets provide. 

3. 3 Flowgraph Theory Shannon-Happ Formula 

For a set of linear relations that satisfy consistency criteria (to be 
explained later) there exists a formula by which the solution can be obtained 
m a noniterative substitution and does not require stability criteria for each 
relation This formula was originally developed by Claude Shannon while 

7 

investigating the functional operation of an analog computer (Essentially 

g 

the same formula was rediscovered by S. Mason m 1952 )* Shannon 1 s 

Formula is an analytic expression for calculating the gam of an interconnected 
set of amplifiers m an analog computing network W. W. Happ generalized 

9 

Shannon 1 s work for topologically closed systems. The Shannon-Happ Formula 
is valid m deriving transfer functions, sensitivities, and error functions For 
the particular use intended for this formula, the sensitivity factor H is set 
equal to zero 

Flowgraph Notation 

Before the Shannon-Happ Formula can be defined explicitly, it is 

necessary to define the basic concepts of flowgraph for which the equation 

, , 10, 11 

was derived The fundamental terms of a flowgraph, namely, node, 

transmittance, and loop, and how they interact can best be described by 
example Consider the equations, 

a ll X l + a 22 X 2 + X 1 = X 1 
a 21 X l +a 22 X 2 + C 2 = X 2 

and the corresponding flowgraph shown m Figure 3 6 

During World War II Claude Shannon developed his formula Because of war- 
time restrictions, his work was not published, and was virtually unknown to 
the academic community In 1952, Samual Mason rediscovered the same 
formula. 
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Each node represents a variable, thus x and x are variables and c and 

1 a X 

c are considered constant inputs The nodes c and c are called independent 

c* J. Z 

nodes. If the arrows leading from c or c were reversed, these nodes would 

1 Ct 

be dependent nodes 

A transmittance is a value assigned to the directed path between two nodes 
The node at which the directed line begins is called the origin node, whereas 
the node at the receiving end is the target node The transmittance relates the 
origin node variable Therefore, m reading the flowgraph, the functional 
relationship of a variable is the summation of the product of respective in- 
coming transmittance s with their node variables This can be verified by 
writing out the equation associated with the flowgraph (Figure 3 6) and the 
original equations Note that a flowgraph transmittance function such as 

b 

A* < *C 

will be written as A b * C on a programming sheet 

A directed loop is defined as a closed path consisting of a sequence of 
transmittance s taken m the direction of the arrow The sequence must be 
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taken such that no node is traversed more than once m the closed path. The 
value of a directed loop is the product of the transmittance s forming the di- 
rected loop In the example, three directed loops exist, (a^.. a^), ^ a ll^’ 

(a _). (Note that loop m a flowgraph does depend upon direction whereas 

Ci ^ 

m linear graph theoi’y this was not required ) 

Distinct types of loops must be defined in the Shannon -Happ Formula 

(a) a first-order loop is a simple directed loop as defined above 

(b) an Nth-order loop is composed of N disjoint first order loops 
(none of the nodes are common between loops) The value of 
an Nth order loop is the product of the N first-order loop values 
comprising the Nth-order loop In the example, only one second - 
order loop combination exists, namely, (a^ 

(c) a zeroth-order loop is by definition equal to a value one and has 
no flowgraph significance It is a mathematical convenience 
employed m the Shannon-Happ Formula 

Shannon -Happ Formula 

If L(0) is the value of the zeroth-order loop (always equals one) and 
L(N) is the sum of the values of all the loops whose order is N, the Shannon- 
Happ formula can be expressed as 

H = L(0) - L(l) + • • • +(-l) N L(N) = 0 

12 

which can be written in expanded form 

N R 

H = 1 + J Z L<r)(-l) r = 0 

r=l i=l 1 , 

where R = the number of r -order loops m the system and N = the order of 
the highest loop m the system. 

3. 4 Transfer Function Formulation 

The circuit shown m Figure 3.7 is used to illustrate the circuit analysis 
techniques. The AC model of this circuit using only linear elements is 
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For the circuit m Figure 3 7, the output voltage is taken across the inductor 
L Since the voltage across L is one of the variables, the output voltage, 
^out J can be ex P ressed directly, that is, V Qut By adding the output 

current source (I 0) m Figure 3 8, provision has been made for a general 
method of solution 

After the equivalent circuit is constructed, its corresponding directed 
linear graph must be drawn with the assigned current direction m the circuit 
elements In the linear graph G one selects a tree structure T which must 
contain all voltage sources (dependent or independent) If the voltage sources 
form a loop, the circuit' s definition is ambiguous and hence cannot be solved 
Assuming that the voltage sources do not form a loop, passive elements must 
be added to complete the tree To this end, some of the passive devices are 
made voltage -type elements and thus provide the remaining constituents for 
the tree (See Figure 3 9), Finally, the current sources and the rest of the 



passive elements form links (This operatioh.constitutes the particular se- 
lection of either a voltage or current relation for each passive element That 
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is v- i*z or x v/z The next step requires one to obtain the current 
at the branches (voltage -type elements) as a function of the currents m the 
links (current -type elements). This entails writing the current equations 
for (n-1) out of n nodes of T. Then, the current m each branch is found as 
a function of link currents only by the Gaussian elimination process. By 
finding branch current as a function of link currents one forms the (n-1) cut 
sets. 

The current equations are written by setting the branch currents on the 
left-hand side of the equals sign and the link currents on the right-hand side 
For Figure 3 9, the node current equations can be written as 


Node 6 -L r 
vm 

Node 5 I 

r 

i 

Node 4 I 

r o 

Node 3 -I -I T 

r i r 0 R 3 

Node 2 I 

J—i 

In compact matrix notation 
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A is an (n-l)*(n-l) matrix (^(n-1) is the number of branches of the treej 
I T is a column vector of n branch currents, 

B is an (n-l*(m) matrix (m^b-m+l is the number of links), 

I is a column vector of m link currents 

i-J 

After matrix A is diagonalized, performing the same operations on B as 
an A, the current equations take the form 



Note that the Gaussian elimination is performed on a set of integers, 

(+1, 0, -1) and will not entail any loss of significance or introduce any tran- 
cation errors 

Following the Gaussian elimination that transforms the current equations 
into a unilateral set, the flowgraph can be constructed The first step is form- 
ing the current flowgraph relations as shown m the lower part of Figure 3 10 
In the diagram (Figure 3. 10), two flowgraph nodes are assigned to each element 
The bottom nodes correspond to the currents m the elements and the top nodes 
correspond the voltage across the elements 


3-15 




Figure 3 10 

The flowgraph voltage relations are constructed by an imaging method 
based on the current relations The rules for this technique are 

1 Consider two elements for which there exists current transmittance 
connecting two current nodes Form a transmittance connecting the 
two corresponding voltage nodes The direction of the voltage trans- 
mittance arrow is the reverse of the corresponding current trans- 
mittance 

2 If one element is passive and the other is active* the sign attached 

to the voltage transmittance is the same as the corresponding current 
transmittance The sign is reversed if both elements are the same 
type* that is, both passive or both active The use of the imaging 
technique is a consequence of the fact that disjoint sets of current 
and voltage also form complementary sets since they are complemen- 
tary cut and tie sets (The difference m the sign reversal between 
active and passive elements is due to the fact that conventionally used 
Kirchhoff s equations are not written m a complementary form, that 
is* currents are summed to zero (I^+ Ig + I n = 0) while voltages are 

summed to a nonzero quantity (V-L+ Vg + • V m = ^ Also Kirchhoff 
originally stated them m a complementary form 

After Kirchhoff s current law and Kirchhoff s voltage law have been ap- 
plied, the current -voltage relations and dependencies and requested transfer 
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function are determined by making the input dependent on the output by the 
relation [Input ■<- P * Output], This forms a closed Howgraph. The forward 
transfer function T = l/P can then be arrived at since the total gain P^T = 1 
as evaluated by use of the Shannon-Happ Formula (for P unknown) This 
evaluation can be done by separation of products containing P and those terms 
which do not contain P since no higher powers of P than P^ can occur. 

A transfer function 1 can be evaluated only as a function of a free variable 
(it cannot be found as a function of a variable which was already set as a 
determinable variable) The free variables are defined as. (1) the current m 
the independent current source and (2) the voltage across an independent voltage 
source. The transmittance P will cause one of the free variables to become a 
determinable variable (that is, it can be included m the evaluation of the Shannon 
Happ Formula) The rest of the free variables will be set to zero for the eval- 
uation of the function A comparison between Figures 3 10 and 3.11 will 
indicate how this is accomplished Note that the current -voltage relations 
m passive elements are taken as impedances for branches and admittances 
for links 

P 



Figure 3 11 
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It is important to emphasize the uniqueness of transformations achieved 

\ 

by the algorithm presented herein and its advantages over techniques which 
are based on solutions of a set of equations This means that from the rep- 
resentations such as that presented m Figure 3 11 one can reconstruct the 
original system, thus showing that the algorithmic procedure described above 
does not incur information loss 

i 

The transfer function V , /V is calculated by use of the Shannon- 

out m J 

Happ Formula In the present example there are nine first-order loops, 
which are summarized with their node sequence and loop transmittance s m 
Table 3 1 


The higher -order loops are unions of first-order loops that do not inter- 
sect and the loop value is the product of the corresponding first-order loop 
values. Loop substitution into the Shannon-Happ Formula, and the setting of 
H = 0, followed by solving for T = l/P yields the requested transfer function. 


V 

V 


out 


= T 


m 


I§ 

P 
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li3, lio, 2o3, lo3 
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R, 


R, 


R, 


R, 
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Although the proof is rather involved (thus not presented here), note that 
the information necessary to reconstruct the original circuit is given by 
the flowgraph and by preserving the I<p and 1^ vectors m the arrangement 
of the flowgraph nodes 
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The solution T = l/P is obtained by placing the loops containing P and 
their products in the numerator and those devoid of P m the denominator 

Since the only arithmetic m the entire algorithm is used m calculating 
the transfer function performed at the end of the algorithm and essentially 
is the sum of products., one can control the error and make the solution as 
accurate as desired Furthermore, comparison between values of loops is 

TABLE 3. 1 


Loop Number Node Sequence Transmission 


L 1 

V I I V 
C, C, r r 

1 1 l l 

- C i r ! S 

L 

V I I V 
S C 2 K 3 R 3 

- C 2 R 3 S 

L 3 

V Cl \ \ V R 3 

- C 1 R 3 S 

L 

V H 3 V «2 Ir 2 Ir 3 

- R 3 /R 2 

L 

\ X ^2 S 

-r 

o 

R 2 

L 6 


LS 

R 2 



I 

r 

1 


Vr 


0 






R 


V V„ I 
m 


I I D I V V 
0 r 0 r 0 R I 


Ir 2 V A 


-p 


(® C l Lr 0 0 2 



V 

m 








I V V 
L L I, 



indicative of the significance of each element m the transfer function and is 
helpful m omitting the elements which have a negligible effect on the final 
transfer function 
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3. 5 Sensitivities Concepts 


There are three basic sensitivity algorithms employed m NASAP-70. 
These are parameter sensitivity, worst case (tolerance) analysis, and 
pole sensitivity. A description of each follows. 

13 

3. 5. 1 Parameter Sensitivity 

In section 3. 4, the transfer function T = ~ was obtained by keeping 
track of the loops that contained P and those devoid of P, and forming the 
ratio of the two expressions. As shown below, the somewhat similar 

tagging technique m the computer algorithms can produce the sensitivity of 
the transfer function to changes m a circuit parameter 

Consider the system of Figure 3 12 where X is the input or exci- 
tation and Y is the output or response If the input and output are connected 
by a transmittance P, then the transfer function can be expressed in terms 
of P since P = — = - This represents a closed system for which the input 

y 

and output are dependent upon each other The Shannon-Happ Formula states 
that the topology equation H(T) must equal zero, thus 

H(T) = H(T) + TH(T T ) = 0 
dH 

where H(T' ) = — = the portion of H containing T linearly and indicated m 
the computer algorithm by a tag of T = 1, and 

H(T) + H(T=0) = the portion of H devoid of T 

and indicated m the computer algorithm by a tag of T = 0 

To compute the sensitivity function, consider a circuit that contains a 
component Q and sustains a desired performance specification T, the transfer 
function It is always possible to formulate a closed system containing the 
two parameters T and Q linearly The topology equation H = 0 is a constraint 
on the system from which the unknown T is calculated 
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If the topology equation H is a function of two parameters T and Q, then 
H(T, Q) = H(T, Q) + TH(T' , Q) + QH(T, Q< ) + TQH(T» , Q' ) 



where the coefficients of T and Q are defined as Taylor series coefficients 
and the terms of the topology equation H(T> Q) are defined as follows 

H( T, Q) = H(T=0, Q-0) = H(0, 0) 

H(T> , Q) = H(T=1, Q=0) = H(l 3 0) 

H(T 3 Q’ ) = H(T=0, Q=l) = H(0, 1) 

HtT^Q 1 ) = H<T=1, Q=l) = H(l, 1) 


All of these quantities refer to partial sums of the topology equation 
which can be tagged and identified mthe computer program. 


A topological derivation of sensitivity is obtained by taking the total 
derivation of H(T 3 Q) above. 

dH(T, Q) = |H(T’ , Q) + QH(T» , Q l ) 


dT 


I - 


+ H(T, Q 1 ) + TH(T' , Q' ) jdQ = 0 


dT _ H(T, Q' ) + TH(T» , Q 1 ) 
dQ " H(T» 3 Q) + QH(T» , Q* ) 
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since 


H(T, Q) = [h(T, Q) + H(T, Q' )) 

+ T [H(T« , Q) + H(T» , Q' ) 

and 

H(T, Q) = |h(T, Q) + H(T* , Q)j 

+ Q (h(T, Q 1 ) + H(T* , Q> ) | = 0 

therefore, 


s 0 


Q = [H(T, Q) + H(T' , Q)] [H(T» , Q) + H(T' , Q 1 )] 
T [H(T, Q) + H(T, Q l )] [H(T, Q' ) + H(T' , Q« )] 


The parameter sensitivity is defined by 


or. 


dT 

T „ d log T T 
Q d log Q dQ 

Q 

H(T' , Q) + H(f, Q) 
H(T, Q) + H{T, Q’ ) 


3. 5. 2 


Worst Case (Tolerance) Analysis 


13 


The sensitivity techniques outlined m section 3. 5. 1 may be used to 
perform a worst case tolerance analysis on all components of the circuit. 
Assume that a given circuit specification P can be specified as a function 
of n parameters Qp Q 2 Q n , 

P = ^ 2 * * * * 


Then for small changes m the parameter, the statistical tolerance Tp of 
P is defined as 



Tp is a measure of the deviation of P from its mean value due to deviations 
of the components from their respective mean values. 
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Using the definition of sensitivity T p can be expressed m a more 
suitable form for utilization of the tagging technique as 


where 



n 


Z 

1=1 





is the functional tolerance. 


The sensitivity of P with respect to each parameter Q may be cal- 

Tp 

culated as before, then substituted into the — — expression to derive the 
tolerance. 


3. 5.3 


Root Sensitivity 


14 


When a parameter of a system changes, the locations of the poles 
will also change. Root sensitivity is defined as a measure of the amount 
of change a root undergoes, given a percent change m some system param- 
eter. 


The following analysis assumes that (1) the system is linear and 
time mvanent, and (2) the transfer function is obtamable and can be 
expressed by the form 

_ A(S) + KB(S) 

K> C(S)+KD(S) 


Here, A(S), B(S), C(S), and D(S) are polynomial m S and K is a system 
parameters for which the sensitivity is desired. 


For differential changes m the parameter K, there will be differ- 
ential changes m the roots of the characteristic equation, C(S) + KD(S). 
The definition of root sensitivity employed m NASAP-70 considers one 
system parameter, K, and one pole of the transfer function S^, and is 
defined as 



K 
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If the transfer function of the system is given above for T(S), then 
the root sensitivity can be found by evaluating the residue of the transfer 
function at the poles of the transfer function, or 


S 


S 

1 

K 


- KD(S) 

[C(S) + KD(S)] 


S=S 

1 


Here S is a pole described in the unperturbated system. This operation is 
performed m the program with simple tagging technqiue, just as m the 
parameter sensitivity case. 


3.5.4 Sample Calculations 


Given the following circuit, the following parameter sensitivity, 
worst case, and pole sensitive calculations are made. 



NASAP 

VI 1 2 1 

R1 2 3 10 

Cl 3 1 4UF 

R2 2 1 100 

END 

VC1/VV1 


LOOP 1 contains Rl, Cl, P 
LOOP 2 contains Rl, Cl 
ZERO ORDER LOOP 


4 -1 

has value of -2. 5 x 10 S 

4 -1 

has value 2. 5 x 10 S 

has value 1 


Parameter Sensitivity 


H(P') = -2. 5 x 10 4 S _1 

H(P) = 2. 5 x 10 4 S _1 +1 
H(P, Rl) = 1 
H(P, Cl)= 1 

H(P, R2)= 2.5x10 4 S“ 1 +1 


H(P>, C x ) = 0 
H(P', R ) = 0 

H(P',R2) =-2.5x10 4 S _1 
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q P _ H~(P' , Q) H(P, Q) 

Q H(P') H(Q) 

s p = o i = L._ 

R1 -2.5x10 4 S _1 2.5x 10 4 S' 1 +1 2. 5 x 10 4 S _1 +1 


q P = 0 1 = - 1 

“Vm 4-1 4-1 4 “1 

-2. 5 x 10 S 2. 5 x 10 S +1 2. 5 x 10 S +1 

p -2. 5 x lO^" 1 _ 2. 5 x 10 4 S~ 1 +1 

S R2 = -2. 5 x 10 4 S _1 2. 5 x 10 4 S" 1 +1 

-6. 25 x 10 8 S" 2 -2. 5x10 4 s" 1 + 6>25x 10 8 S~ 2 4 2. SxlO^" 1 
-6. 25 x 10 8 S“ 2 - 2. 5 x lO^" 1 


0 

8-9 4-1 

-6.25 x 10 S - 2. 5 x 10 S 


TRANSFER FUNCTION = 


-H(P» ) 
H(P) 


4 -1 

2.5 x 10 S 
2.5 x 10 4 S _1 +1 


Pole Sensitivity 


POLE 2. 5 x 10 + S = 0 

S = - 2. 5 x 10 4 

Pole Sensitivity = f ^ 3 11 

^[H(P)1 


S=S 


~ [H(P)] = -2.5 x 10 4 S" 2 

H(P, RP ) = 2. 5 x loV 1 

ff(P, CP) = 2. 5 x loV 1 
H(!P, R2» ) = 0 

4 -1 

-2. 5 x 10 S 4 

Pole Sensitivity to R1 = j 1 -n — = S = ~2. 5 x 10 

-2. 5 x 10 
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Pole Sensitivity to Cl 


4 -1 

-2. 5 x 10 S 

i 

4 _o 

-2. 5 x 10 S 

l 


= S = -2. 5 x 10 

i 


WORST CASE Analysis 




dRl _ dCl _ dC2 
R1 ~ Cl ~ C2 1 1 

(TP/P) 2 = <-D 2 <- 01 > + (-1) 2 (-01) . 

' ' ' 4-io 4_io 

(2.5x10 S +1) (2.5x10 S +1) 

+ ( 0) 2 (. 01 ) 

(-6. 25 x 10 8 S~ 2 - 2.5 x 10 4 S _1 ) 2 

= . 02 0 

(2. 5 x 10 4 S~ 1 +1) 2 (2. 5 x loS^+l) 2 ^. 5 x 10 4 S _1 ) 

= .02 (-2. 5 x lO^" 1 ) 2 + 0 

(2. 5 x 10 4 S~ 1 +1) 2 (-2. 5 x 10 4 S _1 ) 2 

= 1. 25 x 10 7 S" 2 

3.90625 x 10 17 S" 4 + 3. 125 x 10 13 S~ 3 + 6 25 x 10 8 S _2 


3. 6 The Svoboda Method for Computing Roots of Polynomials 

Overview of the Algorithm The flow of control among the various logical 
routines of the algorithm is depicted m Figure 3.13. After obtaining the 
input data, the Scanning Routine systematically steps over the Unit Circle 
evaluating the reduced polynomial at five points on each step. When a 
criterion for the possible existence of a root at any step is fulfilled, a 
transfer is made to the Home -m -Routine. The Home -in -Routine approxi- 
mates the root as closely as possible and then transfers to the Root Exam- 
ination Routine. Using the Round-off Routine, the Root Examination Routine 
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START 



Figure 3 13 Flow of Control in Svoboda Algorithm 









either rejects the root or refines it (by means of the Home -m -Routine again) 
and outputs it. Control then passes back to the Scanning Routine which either 
continues scanning or stops because the required number of roots has been 
obtained. When a scan is completed, if the maximum number of scans has 
not yet been reached, the Inversion Routine gains control to "invert' 1 the 
polynomial, before returning to the Scanning Routine which continues to 
scan. A detailed discussion of each element of the algorithm follows. 

The Scanning Routine The main routine m the Algorithm is the Scanning 
Routine which moves across the Unit Circle as shown m Figure 3. 14. The 
real and imagmery axes between the ranges ( -1, 0), (1, 0) and (0, -i), (0, i) 
are divided into sixteenths. The Scanning Routine uses the Polynomial 



Figure 3 14 The Five Point Scan 

Evaluation Routine to find five points at each step m the scan, the central 
point and four points one sixteenth above, below, to the left and to the right 
of the central point. A test is then performed to see if this point may be 
near a root. The criteria for transferring to the Home "in -Routine to 
examine a possible root more closely are 
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1. The value at the central point must be less than the value of any 
of the four surrounding points. 

2. The five points must not be equal m value. 

If these criteria are not met, the scan is incremented by one sixteenth 
and the scanning process is resumed. Scanning is performed from left to 
right and from bottom to top. When a scan has been completed, that is, when 
the point (1, 0) has been evaluated, a check is performed to see if the number 
of scans has exceeded an upper limit. If not, a transfer is made to the Inversion 
Routine (described below) which performs the inversion of the polynomial and 
then returns control to the Scanning Routine. 

The maximum number of scans allowable is twice the" number of roots 
in the polynomial. Since at least one root must be obtained after each pass 
of both the "real" polynomial and the "inverted" polynomial (requiring a total 
of two scans), a number of scans no more than twice the number of roots 
should be required for the algorithm to work properly. (Usually, considerably 
fewer scans are required because several roots maybe found on any one pass). 

If this number is exceeded, however,, the routine stops automatically. 

The problem of evaluating the circumference of the Unit Circle twice 
(once on a "real" scan and once on an "inverted" scan) is solved by taking 
two precautions. Firstly, all points evaluated m a "real" scan must be 
within the Unit Circle, while an "inverted" scan is permitted to violate the 
boundary of the circumference slightly. This precaution alone, however, is 
not sufficient to avoid a duplication of roots which lie close to the boundary, 
therefore, m the Root Examination Routine a check is performed to see if 
the root under consideration has appeared previously in another scan. This 
second precaution prevents roots which have been found once by a "real" 
scan and once by an "inverted" scan from appearing twice. 

Polynomial Calculation The Polynomial Calculation Routine uses Horner 1 s 
Technique to evaluate the polynomial complex value from the coefficients. 
Basically, Horner 1 s Technique is the iterative evaluation of the expression 
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15iS n 


F 


i+l 


= (F + a ) * x 
i 1 


with F 1 - (0, 0) and F = F + a 

1 n+1 n n+1 

coefficient m the polynomial 

-d/ \ n , n~l , 
P(x) = a^x + a^x + 


the final value, and 


a x + a . , 
n n+1 


a is the i' th 

i 


Thus the final value is cumulatively built up m F. If necessary, the complex 
value F is divided by previously found roots to form a reduced polynomial 
value 


F = 


P(x) 

(R -x) (R -x) (R -x) 
1 Za in 


where m is the number of roots found previously. In order to avoid over- 
flow, the absolute value of any of the factors (R - x) is not allowed to be less 

—60 ^ 
than 10 . The final step is to obtain the residual (the complex absolute 

value) of F. 

H = V([Re(F)] 2 + [Im(F)] 2 

The residual is computed for four or five points (the Home-m- 
Routine does not require the central point to be evaluated each time) on 
each entry to the Calculation Routine. It is these four or five values (H) 
which are used by the Scanning and Home -m -Routines as the polynomial 
values at the test points. 

Polynomial Inversion In order to obtain all the roots of the polynomial 

w \ n. n-1 , 

P(x) = a,x + a„x + • • • + a x + a „ 

12 n n+1 


by scanning the complex plane within the Unit Circle, at some point a new 
polynomial is formed from the original one by reversing the order of the 
coefficients. The roots of this new polynomial are the reciprocals of the 
roots of the origmal polynomial, thus effectively bringing inside the Unit 
Circle all the roots which were previously outside. The Inverted Polynomial 
is 
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P' (y) = a n+1 y 11 + a n y n 1 + * • ' + a 2 y + a % . 

If P(r) = 0, it is easy to show that 
P(r) = l/r n P(r) » P 1 (1/r) 

Therefore y = l/r is a root of the new polynomial p r . 

Thus, in order to obtain all the roots of a polynomial, the program 
must deal effectively with two kinds of roots, "real" and "inverted", and 
must obtain the reciprocal of "inverted" roots before writing them on the 
output. The Polynomial Inversion routine, simply reverses the order of 
the coefficients, sets a program variable to point to either the "real" or 
"inverted" techniques, and returns control to the mam program. 

Homemg-In Once five points have been obtained which fulfill the criterion 
for root examination, the homing -in procedure subdivides the distance between 
the central point and one of the outside points into sixteenths and, using the 
central points as a starting value, employs the Polynomial Evaluation Routine 
to compute four new outside test points. These new four points and the 
central point are then examined for the one having the smallest residual 
which becomes the central point for a new five point test. If this new 
central point is the same as the previous central point, the scale is sub- 
divided into sixteenths as before so that the five point test becomes pro- 
gressively more refined. At each subdivision, a new level of significance 
is obtained (each significant digit being a Hexadecimal digit because the 
scale factor is 16). This process of "homemg-in" is continued until either 

1. The required number of digits of accuracy is reached or, 

2. The residuals of the five points do not differ by a significant amount. 

In case 2, the resolution of the computing method and system has been 

reached and the remaining significant digits, if any, are filled with zeroes. 

This represents a Stopping Criterion which is independent of any formula 

15 

for found -off error, but depends only on the previously mentioned resolution. 
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Each time a new step is taken m the Home -m -Routine, three checks 
are made. Firstly, if the central point should happen to be the origin (0, 0), 
the scale is expanded (subdivided by sixteenths), this allows for roots which 
may range over large orders of magnitude. Secondly, if more than sixteen 
steps should be taken m one direction at the same level of significance the 
level of significance is dropped so that larger (coarser) steps may be taken. 
Finally, a check is performed to ensure that the routine does not stray too 
far out of the Unit Circle. This safeguards against the possibility that the 
original location presented to the Horn e -m -Routine was not m the vicinity 
of a root, m which case it could easily wander outside the Unit Circle. If 
this condition should be detected, the Home-m is aborted and control is 
returned to the Scanning Routine. 

If either case 1 or case 2 occurs, the Home -m- -Rout me has reached 
a successful completion and transfers control to the Root Examination Routine. 

Root Examination Procedures The Root Examination Routine first checks 
to see if the root just found came from the original polynomial coefficients 
or from a reduced polynomial. If the polynomial was a reduced one, the 
value of the root can be regarded merely as an approximation. The Home-m- 
Routme is therefore called again to repeat the latter part of the home-m 
procedure this time using the original polynomial and using the approximate 
root as a starting value. This technique ensures that every root is found 
from the original polynomial and that its accuracy does not depend on the 
accuracy with which previous roots were found. 

After the final root value is obtained, a second check is made, this 
time on its residual. If the residual is greater than a certain value, the 
root is considered unreliable and is discarded. If this should occur, control 
is transferred back to the Scanning Routine. The maximum value of the 
residual is chosen arbitrarily to be one half the value of a the constant 
coefficient m the polynomial. 
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Having passed these tests, the root value is rounded -off m the 
Round-off Routine {which is not discussed here because it has no bearing 
on the actual rootfinding algorithm). If the root is "inverted", its 
reciprocal is found using floating point division, and this value, after 
being rounded -off again, becomes the root value. A third check is then 
performed on the root to see if it has been found on a previous pass. 

(This check was mentioned previously m connection with the Unit Circle 
Boundary). If both real and imaginary parts fall within one significant 
digit of a root found on a different type of pass ("real"), it is rejected as 
a root but is nevertheless entered, m the same way as acceptable roots, 
m the list of roots used to form a reduced polynomial. (This prevents 
its being found again). If the root is not rejected, it is converted form 
its internal hexadecimal representation to decimal, rounded-off again, 
and is written on the output. 

A final check is made to see if the required number of roots has 
been obtained. If not, control is returned to the Scanning Routine, otherwise 
the algorithm terminates. 

NOTES 

1. In writing this algorithm, it was intended to produce a technique 

for finding successive roots from the original polynomial and thus eliminate 

the mutual interdependence of these roots and convergence problems which 

16 19 

are commonly found m other methods, (e. g. , Newton -Raphson, Muller). 
However, m the course of investigating the behavior of the algorithm- it 
was discovered that even widely dispersed roots affected the behavior of 
the polynomial "surface" over a wide range, and it therefore became 
necessary to use a reduced polynomial as a first approximation to eliminate 
this interference. Nevertheless, since the final root us always obtained 
from the original unreduced coefficients, the original algorithm has been 
■effectively retained. 
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2. Since most major computing machines m this country are based on 

some multiple of binary arithmetic (and, m particular, hexadecimal arith- 
metic), a step size of sixteenths was used as the basis for the algorithm. 
On decimal based machines, it is likely that the algorithm would prove 
more effective if tenths were to be used. 


3. Although no organized test of the algorithm has been performed as 
yet, it has performed well over a wide class of applications. In particular, 
34 of the 36 roots of the 36th degree polynomial given m reference 19 were 
found to 5 significant digits m Single Precision Arithmetic within 60 seconds 
on an IBM 360/91. 

3.7 A C. Analysis-Bode Plot 2 ^ 1 "^ 1 


At this stage of the program, with the transfer function available as 

j. k 


T = 


b s m +b 1 s m - 1 + 

O 1 


m 


a s“+a,S m - l + 
o 1 


+ a 


n 


where all the coefficients, a^ and b , are known, the A C response is 
calculated by setting S = jw and simplifying the expression to a linear 
combination of real and imaginary terms 


T = A(u) + jB(u) 


The magnitude of T and the angle 9 (u) are computed according to the equa- 
tions. 


and 


|T(ju)| = *^A 2 (u) +B 2 (u) , 


0{u>) = tan 


B(cj ) 
A(w) 


Now if u is made to vary, then for each value of u the | T(jw ) [ and 0(io ) can 
be obtained over the frequency range of interest and thus can be made available 
for plotting. One commonly employed plot is j T(ju ) | and 0(u ) versus either 
log^u or u of Figure 3. 15. Another graph, a Bode plot, (see Figure 3 16) 
consists of the |t(ju) | m decibel units and 0(io) in degrees versus the log^u , 
taken over the frequency range specified by the user 
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With the complex arithmetic capability of FORTRAN IV, the desired 
computation can easily be carried out m NASAP-70. 

3. 8 Transient Response 

The transient response routine m NASAP-70 derives its theoretical 

basis from Fast Fourier Transform methods for the numerical inversion 

of Laplace Transform. Although the techniques described here follow along 

22 

the approach presented by Dubner and Abate, it was, however, developed 
independently at UCLA. 

Theory The inverse f (t) of a Laplace Transform F(s) is given by the 
formula 

1 r a + joo 

f(t) = \ F(s) e St dS (3.1) 

21,3 

If F(s) is a quotient of polynomials, with all coefficients real, i. e. , 


F(s) = 


K 



(3.2) 


then f(t) is real, and 


f(t) = 


at 
e 

IT 



F(o + jw )e** U ^ dui 


(3 3) 


For the F(s) which are rational, i. e. , have K > n m Equation (3. 2), it 

is apparent that Equation (3 3) can be evaluated by a gradrature rule for a 

specific t, since Lim F(s) =0. However, if K > n, a long division can be 
S oo 

performed on F(s), to yield 

F(S) = C g K- ^ + c g K "^ _1 + ... + C + R(S) (3.4) 

iS,- Jo O 


where 



R(S) = 


(3. 5) 



All terms of (3. 4) represent impulses of varying degrees and can easily 
be inverted. The only concern is the inversion of R(S). 


Inversion of Equation (3. 3) by the trapezoidal rules, gives 


f(t)2 Aw 


[ Re {F(cr)} 


2tt 


+ ~ 21 Ftcr + jK Aw)e” kAljt 

K=1 


(3.6) 


where u is an appropriately chosen sampling interval, and a is chosen so 

that the integration path is to the right of all singularities. Since lim F(S)=0, 

S -*•<» 

an upper limit v can be chosen for the summation such that F(o - +jAuk) is 
small for K > n. Thus 


f(t) « Aw 


Re{F(a)} 


+ 


2tt 


at 

e 

7 r 


2 Ha + jkAiOe* 4 ”* 

K=1 


(3 7) 


(It should be noted that Equation (3 7) is the same expression obtained 
22 

by Dubner and Abate, except that the present derivation did not consider 
that when f (t) is known to be real and nonzero for t^ 0 only, then 


o d 

f(t)= — — \ Re{F(crt)u )} cos(tJ t)du 


(3. 8) 


Note that if f(t) is obtained from the trapezoidal rule for m different 
values of t, a total of mN calculations (evaluations of the term appearing 
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under the summation) are required. For small m, no difficulty exists, 
but if m is large, the machine time could be excessive. 


This difficulty is overcome by the use of the Fast Fourier Transform 
23 24 

(FFT). * The discrete Fourier Transform pair 


N-l 

X(K) = At Yj x(n)e 
n=0 


o nK 


a N-l 

x(n) = 2^t X(K) e 


27rnK 

N 


can be evaluated using the FFT with less than N log N calculations if N 

s ^ 

is chosen so that N = 2 , where 6 is a positive integer. 

In Equation (3 7), if the following definitions are adopted 


Z K = 


Re{F(cr)} 


Re{F(<7 + ]Au K} 


K = 0 


K> 0 


and the summation limit is raised to N-l, where N is the smallest integral 
power of 2 greater than v , then. 


Am e 0 ^ v ^ v jKAwt 

■7 r u_ Z K 6 


If it is required that f(t) is evaluated only at integral multiples of 
some time interval At, then f(t) can be defined by. 


f (nAt) 


. omAt N-l 
Au) e y jKAu nAt 

tt A' Z K 6 

77 K>0 


for n = 0, 1, 2, . . . 


Now, if AtAw = — is introduced. Equation (3 . 10) becomes 
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f(nAt) « 


(3.11) 


anAt N-l j2tt 
Auj e v> „ N 


7T 


Z z 


K=0 


K 


It is apparent that the form of Equation (3.11) is compatble with 
Equation (3 8b). It should be noted that the summation m (3. 11), considered 
as a function of n, is periodic, and that f(nAt) given by (3.11) is an oscillating 
exponential with period NAt, since 


a(N+n)At N-l 3 2 tt ~ ^ N)K 

f[(Ntn)At] « Z e 

K>0 


ir 


(3. 12) 


but. 




(n+N)K 

N 


o nK 

3 2ttK j27r N 
- e e 


127T 


f[(N+n)At] = e 


= e 
aNAt 


nK 

N 


f(nAt) 


(3 13) 


Since (3- 13) cannot, m general, be true a check of the validity of 
Equation (3.11) must be made. 

If the substitutions nAt = t and KAw = w are made m the inverse transfom 
relation of Equation (3 3) and the upper limit of integration is reduced to 


w = NAw , then 
o 3 


anAt 


f(nAt) = — \ F(a + jkAw) 

ft Jo 


jKAut 


Au dK 


(3. 14) 


2tt 


Inserting the condition At Aw = — yields 


anAt rt 03 


f(nAt) = — l F(a + ]KAu)e 


j27rnK 

N 


dK 


(3 15) 
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The trapezoidal approximation of Equation (3 15) is 


f (nAt) 


Au e 


onAt 


ir 


ij- Re (F(cr)} + 


N-l 

Z 

K=1 


nK 


J 2jr 1ST 1 

^ F(o- + 3 KAto)e + - Re{F(ff+]NAu)} 


(3. 16) 


Since it is assumed that F(a + jNAu) is small, this term can be 
eliminated from Equation (3. 16), thus making it identical with Equation 
(3 11), as expected. Additionally, the validity of the approximation of 
Equation (3 15) by Equation (3. 16) should be checked. It is a well known 
rule m quadrative evaluation of integrals that the summation rapidly becomes 
inaccurate when the sampling interval is made larger than one half the wave- 
length of the highest frequency component of the integrand. If it is assumed 
F(ct+ju) has a frequency spectrum with all its components having a wave- 
length much greater than A w , then the highest frequency in the integrand 
of Equation (3 . 15) will be ^ . The sampling interval m Equation (3.11) = 1, 

thus the wavelength must be -£ 2 and forcing the range of 0 ^ n ^ — on 

n ct 

Equation (3 11). This is the same result used by Dubner and Abate. 22 
It will be shown later that it is necessary to further restrict n so that 


0Sn<f 


It is necessary to find a value of the parameter and for which (3. 11) 

will be valid. The method employed m NASAP-70 involved repeated application 

21 

of the Routh Stability criterion followed by a translation along the real axis. 


The Routh criterion involved the construction of a matrix for the 
transfer function. 
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The first two rows are made up of the coefficients of the denominator 
polynomial. If $, is odd, the final element m the first row is b^, the second 
row, b^. If Z is even, the final element is b Q m the first row, and zero 
in the second. In either case, the rows have length ~ + 1. The d are 

L 2 J 13 

evaluted by 


d 

*3 


d i-l, 1 d i -2,3+1" d i-2, 1 d i-l, n +l 


l-l, 1 


(3 17) 


The meaning of d for i = 1 or 2 is obvious. The length of nonzero 
elements m each row decreases as the row number increases, until m the 
(Z+ 1) row, only d ^ is nonzero. 

After the matrix is constructed, the first element m each row is 
examined. If all of them are positive, no singularities are to the right of 
the imaginary axis. If one or more is zero or negative, then there are 
one or more singularities with a positive real value. To test a particular 
a to determine whether it is to the right of all the poles, F(S) is shifted 

b y V 
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F(S+cr ) = 
o 


Za< S + ,/ 


£ 

l 

1=0 


b^S 


+ or ) 
o 


where 





and 


C 

1 


i 




3 =1 


(3.18) 


(3 19) 


The Routh criterion can now be applied to C , and if it is stable, then 
cr Q can be used m Equation (3 11). 

Although the theory is valid at this point, a number of practical problems 
remain. One of these appears when F(S) contains a high order polynomial 
which does not go to zero until w is very large. In these cases, it is 
possible for some of the calculations involved m obtaining sample values 
to fall outside the range of numbers representable m a particular machine. 

To avoid this difficulty, the frequency scaling property of the Laplace 
transform is used. 


f (a t) = i F 1 


(3.20) 


There also exists the inconvenience for users, resulting from the fact 
that the choi ce of Au files At. It would be much more convenient if At 
could be set to any desired value. To overcome this difficulty, a parameter 

2tj- 

selection procedure is used. Always setting At = 1, gives Aw = — . If a 
user desires a time step different from one second, the transform is 
frequency scaled according to Equation (3.20) by the time interval desired, 
l. e., a = At. 

With these changes. Equation (3. 15) becomes 
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(3. 21) 


f(na) = 


2e nffa N-i 1 j 2t 
Na Z K e 

\ Re{p 1 ( ff )}, K = 0 


nK 

N 


where ZZ. ="< 


F (o + j 2 tt 


F (S) - (S/a) 


|o,K>o( 


^TJus change introduces w complication, in that the setting of 
^ w " "n" ;rneans F(S) is sampled until w = ~ , regardless if it may he non- 
zero at this or higher values of w. 

(Note that the choi ce of N no longer has any effect on the upP er limit 
of the Sampling. Increasing N merely causes more samples to be taken 
with the sampling interval, which is set once a is chosen. 

The effect of this high frequency cut -off will vary, depending upon the 
particular transform being inverted. The cases where the error is the 
greatest, however, occur near those points at which f (t) is discontinuous. 

In rational transforms, f(t) is discontinuous only at the origin, if at all. 

(If the numerator polynomial is of one degree less than the denominator, 
there is a discontinuity at f(0). If the difference in degree is greater than 
one, f(t) is continuous for all finite t. The usual effect of the high frequency 
cutoff error is the "rounding of the corners" at f (0). 

A correction procedure can be applied when this error occurs. By 
carrying out a long division of F(S), one obtains 


1 C 

F(S) = Yj ~T + R(S) (3.22) 

i=l S L 

Inversion of Equation (3 22) yields. 
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(3.23) 


= E c Txnn- + r 1 {R<S)} 

Note Equation (3 23) is a power series expansion for F(t) taken at 
t = 0. In NASAP-70, is evaluated with q = 50 m Equation (3 22), follow- 
ing by Equation (3 23) to evaluate the first five time points. During the 
evaluation of Equation (3 .23) a check is made to determine that a smooth 
series fit is achieved (if the higher order terms m the summation are 
insignificantly small, then {R(S)} is not significant because it is 

i *| 

0(t ) near the origin). Also checked is the possibility that some of 

the terms of Equation (3 23) are » f(t), if this is the case, there will 
be a loss of significance, and the error correction procedure is by -passed. 
If it turns out that the series is well behaved, it is used in cases where 
f(t) is continuous at the origin. 

The theoretical foundations of NASAP just described cannot be 
considered extensive. But hopefully enough of the concepts have been 
presented to explain the underlying theme of NASAP. For those persons 
interested m more of an elaboration of the principle involved, they are 
encouraged to read the references shown at the end of the chapter. 
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NOT REPRODUCIBLE 

■ - 


PART II A PROGRAMMER 1 S MANUAL 

The Programmer' s Guide consists of Chapters 4 
and 5 and Appendix A. Chapter 4 describes the algorithms 
used m NASAP-70 and the general flow of control among 
the NASAP-70 routines. A user intending to make any 
modifications to his copy of NASAP should become 
familiar with that chapter. The Dictionaries in Appendix 
A are provided to aid in easy identification of the more 
important names m NASAP-70. 

Chapter 5 is designed as a reference for the 
general user. In particular, the user’ s attention 
is directed to Sections 5. 4 and 5. 5 which should be 
read before any NASAP-70 problems are run on a 
computer which is not an IBM 360. These sections 
describe some important modifications which may 
be required to make NASAP-70 operate properly on 
other computers. 

Finally, Appendix A contains a program 
listing of NASAP-70 and Appendix C contains the 
output generated by sample problems. 
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CHAPTER 4 

N ASAP -70 PROGRAMMER 1 S GUIDE 

4. 0 Program Organization 

4. 1 General Description 

The NASAP Circuit Analysis program is written entirely in 
Fortran IV -u} It is built around a basic program which produces a 
circuit tree from the user -supplied circuit data, and then uses this tree 
to evaluate the circuit Transfer Function. Additional modules are supplied 
which accept a user -defined tree (in a different data format), perform 
Sensitivity and Worst Case Analysis, produce Transient and Frequency 
Responses, find Poles and Zeroes of the Transfer Function, and perform 
automatic scaling on the input data. 

Since NASAP-70 is written m Fortran IV, a user familiar with 
this language may add his own routines. 

The flow of control m NASAP is shown in Figure 4. 1. The Main 
Program first calls one of the three forms of Circuit Description Analysis, 
Each of these makes use of the Card Scanning Utilities. Then the Main 
Program can call (optionally) a Sensitivity Analysis routine if requested by 
the user. The Automatic Scaler may also be called at this point. The 
Transfer Function section is called to build the Flowgraph and compute 
the Transfer Function. The remaining sections. Sensitivities, Plotter, 

Root finder and the Transfer Function section again, may be called optionally. 
If more than one circuit description is supplied, any one of the Circuit 
Description Analysis routines may be called to restart the whole process. 

Only one Circuit Description Analysis routine and the Transfer 
Function Section are absolutely required to be called during a NASAP-70 
run. The remaining sections are called dependmg on the particular options 
selected by the user in his circuit data cards. 
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Figure 4 1 Flow of Control in NASAP-70 












4. 2 Algorithms and Dictionaries 

In this section, the general algorithm of each subprogram is 
described. Instead of a statement by statement analysis of each routine, 
the algorithm is divided into a number of logical steps for the purpose of 
description. It is best to refer to a listing of the routine being studied 
while reading the algorithm description. (See Appendix A) The listing 
should be used to identify the source statements with the logical steps in 
the description. 

For quick identification of the more important names in NASAP, a 
dictionary is supplied in Appendix A. 

4. 2. 1 Main Program 

The Mam Program and Block Data subprogram serve to declare the 
more important program variables and to provide the flow of control among 
the modules of NASAP -70 based on the reading of certain NASAP-70 
control cards from the Input Data Set. 

1. In the Block Data subprogram, three Common Blocks are initialized'. 
Common Block GAG contains an array of 20 variables which is initialized 

to the Sensitivity tags. These tag values are used m the Sensitivity analysis 
to identify flowgraph loops and the resulting Sensitivity functions with their 
corresponding circuit elements. Common block DATA contains an array 
of 32 variables which is initialized to 32 alphameric characters. Common 
block X contains an array of ten variables which is initialized to ten 
numeric characters. Common blocks DATA and X are used by the card 
scanning utilities (ASCAN, BSCAN, etc. ) and various other routines which 
examine the NASAP data cards. 

2. Upon entry to the Main program the important program control 
variables are reset beginning with NE (Number of Circuit Elements) and 
ending with the array SENS (The 50 Sensitivity tags). The page heading 
is then printed. 
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3. A card is read and printed. Subroutine SHIFT is called to squeeze 
out embedded blanks and commas, NE (which currently serves as a heading 
card counter) is incremented, and the first four characters on the card 
are checked as follows. 

• If they are NASA, NE is reset and Subroutine NASAP is called, 
followed by a transfer to step 4 below. 

• If they are TREE, NE is reset and Subroutine READ is called, 
followed by a transfer to step 4 below. 

• If they are CIRC, NE is reset, ITREE is set (to signal that a tree 
is to be built by Subroutine FINE) and Subroutine READ is called. 
Then, provided ERR, the terminal error flag, has not been set. 
Subroutine FINE is called, followed by a transfer to step 4 below. 

• If they are STOP, control is returned to the system monitor. 

• If none of these sets of characters appear, the card is assumed 
to be a title card. If NE is more than ten, a warning is printed, 

NE is reset and control returns to step 2 above to read another 
card. 

4. Statement 3 checks the ERR flag. If it is set, an error message 
is printed and control returns to Step 2 above where NASAP -70 is reiniti- 
alized. If it is reset, the checklist of elements is printed out so that the 
user may verify that his data were read correctly. Subroutine CALC is 
called to check tree legality a,nd to create the current equations. If Sub- 
routine CALC sets the ERR flag (e. g. , due to an invalid tree), the error 
message is printed as before and NASAP -70 is reinitialized. Otherwise, 
Subroutine SCALER is called to determine if the circuit element values 
require scaling. If FACTOR is nonzero, then scaling was performed and 
the scale factor is printed out. 

5. If TAG is set, then the user omitted an END card after the circuit 
description and therefore another card need not be read. Otherwise, a 
new card is read. Subroutine SHIFT is called and the following tests are 
made on the first four characters of this card 
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If they are SENS, Subroutine SENSIT is called (to analyze Sensitivity 
cards) and the next statement is skipped so that Subroutine WORST 
is not called. 

If they are WORS, Subroutine WORST is called (to analyze Worst 
Case tolerance cards). 

Subroutine GRAPH is then called to build the flowgraph (except for the 
unknown transmittance) which is then printed out. Subroutine REDUCE 
is called for each flowgraph transmittance to handle Sensitivity tags. As 
a final step, preparatory to servicing Output requests, NPATH (the number 
of flowgraph transmitt ances) is incremented to include the unknown trans - 
mittance, VPATH( NPATH) (its value) is set to 1. 0, S(NPATH) (its tag) is 
set to 1000, NTIMES (the number of words per block in the BITS array) is 
set based on 30 bits per word, INP (the Transfer Function request flag) is 
reset, finally ERR is reset. By transferring to statement TO, step 6, which 
reads a new Output Request card, is avoided. Control goes to step 7. 

6. The INP and ERR flags are reset, a new Output Request is read 
and Subroutine SHIFT is called. 

7. Statement 10 prints the latest Output Request, calls and then 
analyzes the Output Request as follows 

If the first three letters are END or the first two letters are EX, 
control goes to step 2 where NASAP is reinitialized. 

If the first three letters are CIRC, TREE or NASA, it is assumed 
that the user omitted the END card after his Output Requests. 
Therefore control goes to statement 12 which prints an error 
message, the NASAP-70 heading, and then returns control to step 
2 at a point just after a new card is read (because this card has 
already been read by accident). 

If INP is 0, no Transfer Function request has yet been read so the 
next five tests are not performed. 

If the first letter is V or I, this is a Transfer Function request. 
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therefore control goes to step 8 where the Transfer Function is 
formed. 

If the first four letters are PLOT and ERR has not been set. Sub- 
routine PLOT is called, and if ERR is still not set. Subroutine 
INVERT is called to perform the plotting. Finally ERR is reset. 

If the first four letters are ROOT and ERR has not been set. Sub- 
routine ROOTS is called. Subroutine SHIFT is then called so that 
the succeeding test for a Pole Sensitivity Request will operate on 
a card of the form ROOTS, POLES. 

If the first four letters are POLE and ERR has not been set. Sub- 
routine POLSEN is called. 

Control now returns to step 6 after an error message is printed 
for the cards beginning -with SENS, WORS, or TOL. 

At this point INP = 0, which means that there has been no previous 
Transfer Function request. Hence, cards beginning with PLOT, 
ROOT, SENS, TOL or WORS are meaningless and if the current 
card is one of these, an error message is printed and control 
returns to step 6. 

8. The card is now considered to be a Transfer Function request, 
consequently INP is set to signal that a Transfer Function request has been 
encountered. The number stored m NTIMES is printed and then Subroutine 
WHAT is called to analyze the Transfer Function request. If the ERR 
flag has been set, control goes to step 6 to search for another Output 
Request. Otherwise Subroutine INBIT is called to enter the unknown trans- 
mittance into the BITS array and then Subroutine LOOPS is called to solve 
for the Transfer (and Sensitivity) Functions. 

9. The BITS, SMAX1 and SMIN1 arrays are reset before the Sensitivity 
Functions are entered. Subroutine ANSWER is called to print out the 
Transfer Function. If NSEN is 0, this means that no Sensitivity Functions 
are requested. Control then returns to step 6 (except INP and ERR are 
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not reset), otherwise subroutine SENSC is called. If NWORST is not 0, 
Subroutine WORSTC is called to evaluate the Worst Case Function, and 
Subroutine ANSWER, is called to print it. Finally, control returns to step 
6 (except INP and ERR are not reset). 

4. 2. 2 Circuit Description Analysis 

NASAP-70 offers three techniques of circuit description analysis. 
The technique selected is determined by the heading card read by the Mam 
program. All the techniques make use of the card scanning utilities which 
perform various operations on the card image stored in an 80 word array 
in Common block A. 

The User 1 s Circuit Description may be supplied to NASAP-70 m one 
of three ways 

2 

1. As a circuit description with a tree to be defined by the program 
for minimum computation time. This is the standard form of NASAP Input 

3 

Data used in previous versions of the program.' It Is initiated by a card 
having the work NASAP. 

2. As a circuit description with a tree to be defined by the program for 
optimum accuracy at a given frequency. This form of input data is new to 
NASAP. It is initiated by a card having the word CIRCUIT followed by a 
value in parentheses which represents a frequency m cycles per second. 

3. As a circuit description with a user-defined tree. This option, like 
the CIRCUIT option, uses a new form of input data. It is initiated by a card 
having the word TREE. 

The method of analyzing the Circuit Description Data associated with each 
of these forms of input is described below. 

Card Scanning Utilities 

There are eight routines which constitute the card scanning utilities. 
Subroutines ASCAN (B, I, J), BSCAN(B, I, J) and CSCAN(B, I, J) scan the 
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card image m Common block A starting at column I until a special character'" 
(described below) is encountered. The character is placed m B and the 
number of the column just before this character is placed m J. 

• Subroutine ASCAN scans for (/-) “ blank. 

• Subroutine BSCAN scans for U blank M K P O Y I. 

• Subroutine CSCAN scans for . E + - blank. 

• Function ISORT(A) returns the fixed point numeric value of the 
character stored m A. If A is not numeric, FLAG is set. 

• Subroutine MSG(A, I) prints a diagnostic. 

• Subroutine NUMBER(N1, N2) stores the floating point value mto 
VPATH(NE) of the number between columns N1 and N2 inclusive, 
irrespective of the format m which this number is written. If there 
is an error in the number (e. g. , an invalid character), FLAG is set 
and the value entered into VFATH(NE) is unreliable. For instance, 
the following numbers are acceptable: 

-1 .73-7 1E2 +0.0009 

but these are not acceptable 

-1A 7.. 3 1B2 ++. 0009 

The algorithm of Subroutine NUMBER is now described in more 

detail* 

1. Upon entry, K (the column pointer) is set to Nl, and VFATH(NE) is 
set to 0. Provided K is less than N2, control passes to step 3 to begin the 
analysis. 

2. This is the error return. When this step gams control, a diagnostic 
is printed and control is returned to the calling routine. 

3. A test is performed on the first character in the field. If it is a -, 

TAG is set. Subroutine CSCAN is called and if I already points to a special 
character this number must be less than 1, so control passes to step 5. 

4. The digits which form the part of the number greater than 1 are 
contained between columns I and J inclusive. This step (DO 3) enters them 
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into VPATH(NE). If FLAG is set for any digit, the error return (step 2) is 
given control. 

5. If the end of the number field has been reached, control passes to 
step 7. If the next character is not the decimal point, control passes to 
step 6 which checks for an exponent. Otherwise the digits of the fractional 
part of the number are entered into VPATH(NE) (DO 7). If FLAG is set, 
step 2 gets control. 

6. If the next character is the E of the exponent field, the column pointer 
is incremented. If a - is found m the exponent field, EXPO is set. Sub- 
routine BSCAN is called to obtain the limits of the exponent field. A diag- 
nostic is printed if this field contains more than two digits. The rightmost 
two digits are used to enter the exponent value into POW If EXPO has been 
set, the exponent is negative. Lastly, the value in VPATH(NE) is modified 
according to the value of the exponent. 

7. If TAG has been set, the number was negative so the sign is 
reversed. Control then returns to the calling program. 

• Subroutine SHIFT left adjusts all characters m Common Block A 
removing blanks and commas. 

• Function SORT is the same as ISORT but returns a floating point 
value. 

Subroutine NASAP 

\ 

Subroutine NASAP decodes Circuit Description cards which follow a 
NASAP heading card. If no error is detected before the END or OUTPUT 
card is reached, a tree is constructed (subject to the constraint of minimum 
First Order Loops). Each Circuit Description Card is m the following 
format 

NAME ORIGIN TARGET VALUE UNITS( optional) DEPENDENCY( optional) 

The Data cards are described m more detail m Sec. 4. 2. The algorithm 
details of Subroutine NASAP follow 
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1. On entry, NE (the number of elements) is reset to 0. 

2. A new card is read into Common block A and Subroutine ASCAN is 
called repeatedly until the first non-blank character is found. If this 
character is E or 0, this is the end of the circuit description, so control 
passes to step 7 where the tree is built. Otherwise NE is incremented, 
the element name is padded with blanks on the right and entered into the 
CARD array (which contains the names of all the circuit elements), 

3. Subroutine ASCAN is called repeatedly to find the next non-blank 
character which is the start of the ORIGIN field. Function ISORT is used 
to enter the value of the origin node into the ORIGIN array. If FLAG is 
set, control transfers to step 6 which is the error return. A similar 
procedure is used to enter the value of the TARGET node into the TARGET 
array. ' 

4. Subroutine BSCAN is called repeatedly to find the next blank 
character or the first character of the UNITS field, followed by a call to 
Subroutine NUMBER to enter the value of the VALUE field into VPATH(NE). 
This value is multiplied by a factor depending on the next one or two non- 
blank characters (which constitute the UNITS field) • 


u 

CD 

1 

O 

rH 

P 

10 ' 

K 

10 3 

M 

10 

MH 

O 

1 

CO 




If the character is a V or I, the DEPENDENCY field is present so Sub- 
routine ASCAN is used to extract the name of the dependency that is then 
entered into the DEP array (which contains the names of controlling elements). 
If a DEPENDENCY field is not present, a string of blank characters is 
entered into the DEP array. 

5. GENER(NE) and TYPE(NE) are reset. If the first character of the 
element name is V or I, the element is active requiring that GENER(NE) be 
set. If it Is V, the element is a voltage source and is immediately required 
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to be in the tree, therefore TYPE(NE) is set. Finally, before transferring 
back to step 2 to read the next card, NNODES and INODE (the maximum and 
minimum node numbers appearing so far) are set. 

6. (The error return). A diagnostic is printed, ERR is set and control 
is returned to the calling program. 

7. Before building the tree, an array N is set up which initially contains 
the number of elements connected to each node N(I). When N(I) is 0, node 

I has been connected to the tree. When N(I) is negative, node I is currently 
being considered for entry into the tree. 

8. The next free node having the highest number of elements connected 
to it is selected for insertion into the tree. Its N entry is reset to 0 Then, 
all the nodes connected to this one via voltage sources are put under con- 
sideration, i. e. , N(I) is made negative (DO 23). As long as M is 1 
additional nodes have to be considered, consequently step 8 is repeated 
until M is 0. 

9. Each passive element connected to this node is entered into the tree 
when the other node to which it is connected is not yet under consideration. 

At the same time, all the nodes connected to this new node via voltage 
sources are given consideration. (DO 26 and DO 31). 

10. The N array is searched for the least value. If this is 0, all possible 
nodes have been entered into the tree, control returns to the calling program. 
Otherwise the node is tagged as being processed by subtracting 1000 from 
its N entry. Then control passes to step 8. 

Subroutine NASAP does not perform any checks on the circuit 
described or the tree it builds (i. e. , to see if all nodes are connected to 
the same tree). If the circuit supplied is valid, then the tree constructed 
from it will be valid also. If the circuit is invalid, the resulting tree is 
meaningless. All checking on both program and user constructed trees is 
performed by Subroutine CALC while solving the current equations. If any 
invalidity is found. Subroutine CALC prints the appropriate diagnostics. 
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In general, the tree constructed by Subroutine NASAP produces the 
minimum number of First Order Loops, and therefore produces a transfer 
function in minimum computation time. This tree may be described briefly 
as the "bushiest" tree. For instance, for the circuit shown, two trees are 
given (solid lines represent the tree) both of which are valid. However, 
tree 2 is the "bushiest" and would probably result in fewest First Order 
Loops. 




TREE 1 



TREE 2 


Figure 4 2 

Subroutine READ and Subroutine FINE 

In response to reading a heading card beginning with either the word 
CIRCUIT or the word TREE, Subroutine READ is called to analyze Circuit 
Description Data. If the heading card was a CIRCUIT card. Subroutine FINE 
is called to build a tree which results in optimum accuracy at the frequency 
shown on the CIRCUIT card. If the heading card was a TREE card, Sub- 
routine FINE need not be called because it is assumed that the user has 
supplied the tree. The format of the circuit description data accepted by 
Subroutine READ is considerably different from that accepted by Subroutine 
NASAP. This is because Subroutine READ is designed for a user who has 
some knowledge of flowgraph theory while Subroutine NASAP is designed 
for the user interested primarily m the Transfer Function rather than the 
method of analysis. 
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CIRCUIT cards have the form; 

CIRCUIT (Frequency) 

CIRCUIT and TREE circuit description cards have the form 

NAME /DEPENDENCY (ORIGIN -TARGET) = VALUE UNITS 
(note that DEPENDENCY and UNITS are optional quantities) 

Circuit Description Data is described in detail in Sec. 4. 2. 

1. The first step m Subroutine READ is to reset a number of control 
variables. Then if this is a CIRCUIT card (TREE=1), the default frequency 
is set to 1.0, and Subroutines ASCAN and NUMBER are called to scan the 
CIRCUIT card for the frequency enclosed in the parentheses, if the frequency 
cannot be found, the appropriate diagnostic is printed. 

2. The next card is read and Subroutine SHIFT is called to eliminate 
blanks and commas. If the card is completely blank or if it starts with 

the letters PL, the appropriate diagnostic is printed and step 2 is performed 
again. If the card starts with END, control returns to the calling program. 

If there are more than 50 elements, the appropriate diagnostic is printed. 

The TYPE and GENER entries for this element are reset to 0 and the CARD 
and DEP entries are filled with blanks. 

3. The following tests are performed on the first 2 characters in the 
card buffer (Common block A) 

a. If the first character is E or J, an active source is assumed. 

Its GENER entry is set to 1. If the first character is E, its TYPE entry is 
set to 1 also to indicate that it is part of the tree. 

b. If the first character is R, L, C or D, and if the second letter is 

E, the TYPE entry is set to 1. If the first letter is D, the GENER entry 

* 

is set to 1 (to show this is a dependent source). Unless TREE is 1 (i. e. , 
unless no user tree is supplied) and if the second letter is not E or J 
(branch or link) a diagnostic is printed and the second letter is set to J. 

c. If the first letter is V or I, it is assumed that because the user 
omitted the END card from the circuit description the first Output Request 
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was read by mistake. Thus, TAG is set to 1 to show that the first Output 
Request is already in the buffer. A diagnostic is printed and control returns 
to the calling program. 

d. If the first letter is P, it is assumed that a PLOT card has 
mistakenly been placed in the circuit description. Therefore, a diagnostic 
is printed and control passes to step 2 to read a new card. 

If none of these tests is true, the first letter is set to R and processing 
proceeds as if test 2 were true. 

4. Subroutine ASCAN is called to find the element name. If it is more 
than 12 characters long, a diagnostic is printed. In the case of an element 
whose first letter is not D, if the first character after the name is not a 
left parenthesis, a diagnostic is printed and step 2 gams control to read a 
new card. In the case of an element having D as the first letter, a diag- 
nostic is printed if a slash is not found after the element name. The 
element name is then entered into the CARD array. A check is performed 
of this new name against all the previous names in the CARD list (DO 17). 

If a match is found, a diagnostic is printed and the program attempts to 
replace the latest name with another one based on the value of the counter 
NR. Up to 10 duplications of a name are allowed. If more than 10 have 
occurred, the ERR flag is set. 

5. If this element is not a dependent element (l. e. , the first character 
is not D), step 5 is not performed. Otherwise Subroutine ASCAN is called 
to extract the Dependency Name. If the character following the Dependency 
Name is not a left parenthesis, a diagnostic is printed and control passes 
to step 2 where a new card is read. If the first letter of the Dependency 
Name is not V or I, a default is assigned and a diagnostic is printed. The 
Dependency Name is then entered into the DEP array. 

6. Subroutine ASCAN is called once to extract the Origin number which 
is then entered into the ORIGIN array and then again to obtain the Target 
number which is entered into the TARGET array. In either case, if an 
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error is detected (FLAG - 1) or if there are more than two digits m the 
Origin or Target fields, a diagnostic is printed and step 2 gains control 
to read a new card. If the Origin or Target number is 0, a diagnostic is 
printed and the number is changed to 99. If the appropriate characters 
are not found after the Origin or Target nodes, diagnostics are printed. 

7. Having reached this point an element is now entered permanently into 
the list of elements by incrementing NE, the number of elements. NNODES 
and INODE, the maximum and minimum node numbers, respectively, are 
set. Subroutine BSCAN and NUMBER are then called to obtain the element 
value. The characters folio wmg the Value field are checked to determine 
if a Units field is present. If it is not the one (that is, if the next character 
is blank), then the value m VPATH is not modified. Otherwise the value 
is multiplied according to the following units 


pf: 

10 12 

K- 

io 3 

MF 

10 

-6 

M 

10 6 

MH: 

10 - 3 

MMF: 

10 

-12 


MMH. 10 


Subroutine UNITS is called to write out the units detected. Then control 
is transferred to step 2 to read another card. 

In general. Subroutine READ is fairly tolerant of mistakes m 
circuit description data. Diagnostics are printed whenever reasonable 
and defaults are supplied whenever possible. 

After Subroutine READ returns to the Main program. Subroutine 
FINE is called to build a tree, if the heading card was a CIRCUIT card 
(TREE = 1). Essentially, the logic of building this tree is to take the user 
supplied frequency (written on the CIRCUIT card) and to evaluate the 
impedance of inductive and capacitive elements according to, 


X 

c 


]WC 




juL 
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All elements are then ordered by their impedance magnitudes and the tree 

is built from elements having the lowest impedance, since these elements 

have the closest approximation to the impedance of a voltage source (i. e. , 

30 

0 ohms). The value 9. 9 x 10 is used to represent °o (i. e., the impedance 
of a current source). 

1. The first step in Subroutine FINE is to evaluate the impedance of 
each element (DO 1) and to store it in the array Z. The elements are then 
reordered by increasing values of Z. (DO 4). The number of nodes in the 
circuit is found, taking into account the possibility that they may not be 
numbered consecutively (DO 40). 

2. All the TAGs are initially reset to 0 (to exclude all elements from 
the tree). The first element is then entered into the tree immediately. 

Then the elements are added to the tree one by one, each time checking 
that the added branches do not conform to closed loops (i. e. , that it always 
remains a tree). As soon as all the nodes are connected, the ordered list 
of elements is printed and control returns to the calling program. 

In this fashion, as many low impedance elements as possible are 
included m the tree according to the operating frequency defined by the 
user. This tree is more likely to result in a larger computation time and 
a greater number of First Order Loops in the Flowgraph when the Transfer 
Function is calculated. This is offset, however, by increased accuracy in 
the Transfer Function. 

4 

4. 2. 3 The Transfer Function 

Evaluation of the Transfer Function involves calculation of the 
current equations for the circuit described employing the tree which has 
been supplied either by the user or derived by the program. From the 
current equations calculated by Subroutine CALC, Subroutine GRAPH builds 
the Flowgraph except for the closing transmittance. Each time a Transfer 
Function Request appears. Subroutine WHAT is called to obtain the closing 
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transmittance and Subroutine LOOPS is called to evaluate the Transfer 
Function from the loops in the flowgraph according to the Shannon -Happ 
formula. Finally, Subroutine ANSWER is called to normalize the Transfer 
Function and to print it. 

The process of evaluating the Transfer Function involves the 
manipulation of individual bits in a word. The bit manipulation words are 
stored in an array of 3000 words m Common block BITS. In addition, these 
words are handled in blocks of varying size depending on the current value 
of NTIMES. For instance, if NTIMES is three, the blocks consist of three 
words each. Furthermore, the various routines involved in calculating the 
Transfer Function address the array in BITS differently. In order to 
facilitate the addressing and manipulation of these words, a set of six Bit 
Manipulation Utilities are provided. 

1. Subroutine EQUAL (I, J, N, NTIMES) performs operation N (see LOR, 
LOX, LSTOR) on the blocks of bits identified by I and J and puts the result 
into block I. The size of the blocks is given by NTIMES (the number of 
words per block) while different addressing techniques are used depending 
on the signs of I, J and NTIMES 

a. If NTIMES is positive and I, J are positive, then they refer to 
the I th and J^ 11 blocks m the BITS array. 

b. If NTIMES is positive and I, J are negative, then they refer to 
the I + lOO^k and J + 100 ^ blocks. 

c. If NTIMES is negative and I, J are positive, then they refer to 
the I^ 1 and blocks from the high end of the BITS array. 

d. If NTIMES is negative and I, J are negative, then they refer to 
the 1^ and J*"* 1 blocks in the BITS array as in case a. 

2. Function LOR(I, J) performs a full -word logical OR on I and J and 
puts the result in I. 

3. Function LOX (I, J) performs a full word logical AND on I and J and 
subtracts the result from both I and J. 
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4. Function LSTOR (I, J) sets I equal to J. 

5. Subroutine UNPAK(I, J, NN) takes the block of bits identified by I 
(according to the same scheme as Subroutine EQUAL) and searches them 
starting at bit 1 and proceeding as far as bit NN. When the first 1 bit is 
found. Function LOX is used to reset it to 0 and the position of this bit is 
returned in J. If no 1 bits are found, J gets the value 0. 

6. Subroutine INBIT(I, J, NTIMES) takes the block of bits Identified by 
I (according to the same scheme as Subroutine EQUAL) and sets the bit in 
position J to 1. If J is 0, all the bits in block I are reset to 0. 

All the Bit Manipulation Utilities use only the low order 30 bits of 
a word. Thus on the IBM 360, the settings of the two high order bits are 
ignored throughout the bit manipulations. Subroutine EQUAL uses Functions 
LOR, LOX and LSTOR to perform certain operations. For further infor - 
mation on Functions LOR and LOX see Sec. 4. 4. 

Subroutine CALC is called by the Mam program after the Circuit 
Description Data has been successfully analyzed. CALC calculates the 
current equations using Kirchhoff 1 s equations. At the same time the 
validity of the tree is checked. If the tree should prove to be invalid, a 
diagnostic is printed, the ERR flag is set, and control returns to the Main 
program. 

1. Upon entry to Subroutine CALC a page is skipped and NTIMES is 
set according to the number of elements m the circuit (NE). NTIMES is 
increased by 1 for every 30 elements, i. e. , each bit represents 1 element. 
The arrays NEL (Number of elements at node I), NBR (number of branches 
at node I) and the LINKS array (the Bit manipulation array in Common 
block BITS) are reset to 0. Then the NEL array is filled with the number 
of elements at each node, the NBR array is filled with the number of (tree) 
branches at each node, NB gets the number of branches in the tree, and 
by means of Subroutine INBIT, the LINKS array is set up as follows 


4-18 



(DO 1) Each block m the LINKS array represents a node. Each bit in the 
block represents an element not in the tree (x. e. , a link). Blocks in the 
lower half of the array represent links leaving the node corresponding to 
that block. Blocks m the upper half of the LINKS array represent links 
arriving at the node corresponding to that block. Thus, each node has 
two entries m the LINKS array, one entry in the lower half of the array 
containing links directed away from the node, and one entry m the upper 
half of the array containing links directed towards the node. For example, 
if node 2 of a circuit has elements 1 and 2 directed away, element 1 being 
a voltage source (i. e. , part of the tree), and element 3 directed towards, 
then block 2 of the LINKS array has bit 2 set while block (2+100*102) has 
bit 3 set. 

2. The next step is to set up the NS and NQ pointers for the BRANCH 

5 

list while checking the validity of the tree (DO 2). The BRANCH list 
contains the branches connected to each node, positive if the branch is 
directed towards, negative if the branch is directed away. NQ(I) points 
to the beginning of the list of branches for node I. For example, if node 
1 has three branches and node 2 has two branches, then NQ(1) = 1, 

NQ(2) = 4, NQ(3) = 6. The number of nodes, NN, is also counted at this 
time. If any node has no elements connected to it, the node numbering 
was not sequential so a warning is printed. If any node has only one 
element connected to it, the ERR flag is set. 

3. The number of branches, NB, is checked against NN, the number 
of nodes. For a legal tree NB must be exactly equal to NN-1. If this is 
not true, an appropriate diagnostic is printed and the ERR flag is set. At 
this point, a test of the ERR flag is performed, if it has been set, control 
returns to the calling program. Otherwise, the BRANCH list is filled 
(DO 7) as described in step 2, using NS as a set of temporary pointers. 

4. This step performs the actual solution of the current equations 
which are now contained in the BRANCH and LINKS arrays. Each node 
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in the circuit has associated with it a current equation. The object is to 
express the current m each branch in terms of the current in the circuit 
links. Since there is one less branch than the number of nodes, there is 
an independent equation for each node except one. Thus, the equations of 
nodes with more than one branch are gradually reduced until each equation 
has only one branch. The solution is then complete. 

The first step is to find a node with one branch (i. e. , the first cut 
set) and the first node with more than one branch. 

If none can be found, all the equations that could be reduced have 
already been reduced. If this is not every equation, the ERR flag is set, 
a diagnostic listing the nodes remaining to be reduced is printed, and 
control returns to the calling program. Otherwise, the remaining multi- 
branch nodes are checked against the single branch node just found and 
Subroutine EQUAL is called’ to either add or subtract the relevant equations 
(DO 26). The branch is removed from the list of branches at the multi - 
branch node and when all reductions have been performed, the single node 
associated with this branch is reset ( 1 . e., NBR is reset to 0) to show that 
all possible reductions with this branch have been performed. Step 4 is 
repeated until every equation has been reduced (NBR(I) are all less than 
or equal to 1). 

5. The current equations are printed by searching the BRANCH list 
for non-empty entries (i. e. , where NQ(I) ^ NQ(I+1)). When one is found, 
the branch is printed out along with the words from the LINKS array 
which constitute the current equation. For instance, the equation: 



would be printed as 
3 2 16 

This list is essentially for debugging purposes. After the current equations 
are printed, control is returned to the calling program. 
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The next step In Transfer Function evaluation is the construction of 
the Flowgraph. This is performed by Subroutine GRAPH which stores the 
Flowgraph is Common Block PATHS. 

a. On receiving control* Subroutine GRAPH initially resets NPATH, 
the number of paths (or transmittances) m the flowgraph, to 0. 

b. A Flowgraph transmittance is inserted for each element which 
is not an independent source (DO 100). If the element is passive, then the 
transmittance represents an impedance (if the element is a branch) or an 
admittance (if the element is a link). NPATH is incremented, the S entry 
is reset and LPATH is assigned. LPATH(I, 1) is the origin node of trans- 
mittance I, LPATHG, 2) is its target node. Nodes with a number less than 
or equal to NE are the current nodes, nodes between NE+1 and 2xNE are 
voltages nodes. Thus if element 3 is an impedance, m a 10 element circuit 
its transmittance goes from node 3 to node 13 (i. e. , the voltage node depends 
on the current node since V = IR) and there are 20 nodes m the Flowgraph. 
Admittances go from voltage to current nodes. A series of tests is per- 
formed on the element* 

a. If it is a resistor branch, its VPATH value is unchanged, and 
its S value is 0 (Since it is not frequency dependent). 

b. If the element is a resistor link, its admittance is . 

c. If it is an inductor branch or capacitor link, its S value is 1 and 
its VPATH value is unchanged since = sL and Yc = sC. 

d. If it is an inductor link or capacitor branch, its S value is -1 

and its VPATH value is inverted since Y T = and X = . 

L sL c sC 

3. If the element is a dependent source, a search of the list of element 

names m CARD is performed (DO 17) to find the name of the controlling 
element in DEP. If the element is not found, a diagnostic is printed and 
the element is treated as an independent source. Otherwise a transmittance 
is inserted from the voltage or current node of the controlling element 
(according to whether voltage or current dependence has been requested) to 
the voltage or current node of the dependent source (according to whether it 
is a voltage or current source). 
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4. Having completed the transmittances due to the elements, step 4 
(DO 1) inserts the transmittances due to current and voltage equations. 
Although only the current relationships have been calculated, the voltage 
relationships may be easily obtained from them by a simple rule If there 
is a current transmittance between two current nodes there is a correspond- 
ing voltage transmittance between the two corresponding voltage nodes. 

The direction of the voltage transmittance is opposite to that of the current 
transmittance. If it connects the nodes of two passive elements or two 
sources, its sign is opposite to that of the current transmittance. 




, Figure 4 3 

For example, given the current relationships of Flowgraph (Figure 4. 3) 
the voltage relationships may be easily determined as shown m (b). These 
Flowgraphs represent the current equations 


I 


1 




This method is implemented by searching the BRANCH list for 
non-empty entries. For each non-empty entry, which represents a branch. 
Subroutine UNPAK is used to search the corresponding LINKS (alias LBITS) 
entries for 1 bits. The lower half is searched first for positive links, and 
when UNPAK returns 0 indicating there are no more 1 bits m the word, the 
search is switched to the upper half of LINKS which contains negative links. 
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The transmittances are inserted two at a time ( 1 . e. , both current and 
voltage transmittances are added simultaneously) . The S value of these 
relationships is 0 since they are obviously not frequency dependent. The 
VPATH values are either +1 or -1 determined as described earlier. 

5. Having completed the Flowgraph (except for the unknown trans - 
mittance) control returns to the calling program. 

The Flowgraph resides in Common block PATHS until a Transfer 
Function Request is read. Subroutine WHAT is called by the Mam program 
to obtain the closing (unknown) transmittance by analyzing the Transfer 
Function Request which is m the form 

TYPE NAME 1 / TYPE NAME 2 

Subroutine WHAT makes use of the Card S cann ing Utilities described m 
Sec. 4. 2. 2. 

1. Upon receiving control. Subroutine WHAT copies the Flowgraph 
from its permanent storage in Common block PATHS into an array m 
Common block BITS (DO 18). Subroutine ASCAN is then called to find the 
slash which divides the Output field from the Input field. If none is found, 
the ERR flag is set, a diagnostic is printed and control returns to the 
calling program. Otherwise the CARD array is searched (DO 2) for the 
name in the Output field of the Transfer Function Request. If it is not 
found, a diagnostic is printed, the ERR flag is set, and control returns to 
the calling program. 

2. If the first letter m the Output field (TYPE NAME 1) is not V or I, 

a diagnostic is printed and defaults are assumed if the element is a branch 
the default is I (since a branch has independent current), for a link, V is 
assumed. The unknown transmittance is connected from the voltage or 
current node (according to the V or I) of the element m the Output field. 

3. In a procedure similar to steps 1 and 2, Subroutine ASCAN is 
called to find the blank at the end of the Input field. If the blank cannot be 


4-23 



found, the error return is taken. Otherwise a search is made for the 
element name (DO 10), defaults are used for V or I, if necessary, and the 
transmittance is connected to the voltage or current node of the element in 
TYPE NAME 2. Subroutine WHAT then returns control to the calling pro- 
gram. 

Subroutine WHAT makes no check on the validity of the Transfer 
Function Request. Only syntax and the legality of the element names are 
checked. For example, 

VR2/VV7 could be a valid request but 

VR2/IV7 is not, because the voltage across V7 is an independent 
variable but the current is not. The Transfer Function resulting from the 
second example will be 0 or meaningless. 

After Subroutine WHAT has returned control and the Mam program 
has inserted the Flowgraph m bit representation in Common block BITS 
using Subroutine INBIT (DO 18), Subroutine LOOPS gains control to 
perform the actual calculation of the Transfer Function from the flowgraph 
according to the Shannon -Happ formula- 

1 - 2L + 2L - 2L, + ’ * ' = 0 

JL A o 

where the L represent the sums of the values of the loops of order i. A 
loop of order 1 (First Order Loop) is a Simple Directed Loop defined as a 
closed path consisting of a sequence of transmitt ances taken in the direction 
of the arrow. The sequence must be taken such that no node is traversed 
more than once m the closed path. The value of the directed loop is the 
product of the transmittance s forming the directed loop. An order 
loop is composed of N disjoint First Order Loops, that is, none of which 
have any nodes in common. The value of an order loop is the product 
of the N First-Order Loop values comprising the N* 11 order loop. 

In order to illustrate the operation of Subroutine LOOPS the example 
Flowgraph shown m Figure 4. 4 is employed. 
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Figure 4 4 

Note that the transmittances joining nodes 1 and 2, and nodes 6 and 7 have 
the same sign. This flowgraph is represented in the LPATH, VPATH and 
S arrays of Common block BITS, as shown 


I 

LPATH(I, 1) 

LPATH(I, 2) 

VPATH(I) 
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0 
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0 
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8 

-l 

0 
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4 

1 

0 

10 

9 

8 

1 

0 

11 

1 

5 

1 

0 

12 

10 

6 

1 

0 

13 

6 

1 

1 

1000 



NPATH = 13 
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In addition, the information stored m the LPATH array is also 
stored in Common block BITS (array LOOP) m a different form. 


I 

LOOP (I) 


3000 

2 7 

2 + 2 = 132 

(Since NTIMES = 1, each 

2999 

2 8 + 2 3 = 264 

transmittance and each loop 

2998 

7 Q 

2 + 2 ^ 640 

is contained in only 1 word.) 

2997 

2 5 + 2 10 = 1056 


2996 

2 1 +2 2 = 6 


2995 

2 7 + 2 6 = 192 


2994 

2 3 + 2 2 = 12 


2993 

2 7 + 2 8 = 384 


2992 

Q A 

2 +2 = 24 


2991 

Q Q 

2 + 2 - 768 


2990 

2 1 + 2 5 = 34 


2989 

2 10 + 2 6 = 1088 


2988 

2 6 + 2 1 - 66 



Subroutine LOOPS receives these data as input and using the 
Shannon-Happ formula, the Transfer Function is calculated and stored m 
the VN array m Common block CIRCIT. VN(I, 1) is the value of the 
coefficient of the (I - 5 1^) power of S m the denominator. VN(I, 2) is 
the negative of the value of the coefficient of the (I - 51^) power of S m 
the numerator. SMAX(J) and SMIN( J) are the highest and lowest powers 
of S in VN(I, J). For example, a Transfer Function such as ^ + ^2S ~ 
would be stored as 

SMAX(l) = 1 SMIN(1) = DO VN(51, 1) = 1 VN(52, 1) = 2 

SMAX(2) =0 SMIN(2) = 0 VN(51, 2) = -1 

The LOOP array is used m two ways: the low end is used to store 
First Order Loops and Higher Order Loops during evaluation; the high 

5 

end is used to store the Flowgraph Transmittances. Thus, as data are 
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removed from the high end and transformed, it is reinserted into the low 
end. Other important variables used m Subroutine LOOPS are the arrays 
V and LS which contain the values and powers of S of flowgraph loops. 
These arrays are in Common block SPEED which is used elsewhere as 
workspace. Subroutine CLEAR is used to remove transmittances which 
have been marked deleted ( 1 . e. , LPATH (I, 1) = 0) from the list of paths. 

1. The first step in Subroutine LOOPS performs initialization by 
resetting important program variables to 0. NN, the number of flowgraph 
nodes is set to 2 x NE (the number of elements) since each element has 2 
nodes (voltage and current) m the flowgraph. NLOOP, the number of loops 
is reset to 0. VN(51, 1) is set to 1; this is one 1 of the Shannon-Happ 
formula. The NODE(J) and COUNT(J) arrays (which contain the number 

of transmittances arriving at and leaving node J) are set up (DO 1). 

2. The first step in the algorithm is the elimination of all nodes 
having only one transmittance directed away (l. e, , COUNT = 1) since 
every transmittance entering this node must ultimately exit through the 
one leaving transmittance. This transmittance is attached to the end of 
each entering transmittance (DO 3) by changing the terminating node 
(LPATH(I, 2)) and calling Subroutine EQUAL to 5 OR’ m the bits common 
to both paths. The leaving transmittance is then deleted (LPATH(I, 1) =0). 
At this point the data for the example flowgraph would appear as follows 


I 

LPATHd, 1) 

LPATH(I, 2) 

VPATHU) 

S(I) 

LOOP(3001-I) 

1 

0 

7 

10 

0 

2 2 + 2 7 

2 

0 

3 

0. 1 

0 

2 3 + 2 8 

3 

7 

3 

1 

0 

2 3 + 2 7 + 2 8 + 2 9 

4 

0 

10 

10 

1 

2 5 + 2 10 

5 

1 

7 

10 

0 

2 1 + 2 2 + 2 7 

6 

7 

1 

1 

1000 

2 1 + 2 6 + 2 7 

7 

3 

7 

10 

0 

2 2 + 2 3 + 2 7 

8 

7 

3 

-o. 1 

0 

2 3 + 2 7 + 2 8 
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I 

LPATH(1, 1) 

LPATH(I, 2) 

VPATH(I) 

S(D 

LOOP(3000 -I) 

9 

3 

4 

1 

0 

2 3 + 2 4 

10 

0 

3 

0. 1 

0 

2 3 + 2 8 + 2 9 

11 

1 

1 

10 

1001 

2 1 + 2 5 + 2 6 + 2 1 ° 

12 

0 

6 

1 

0 

2 6 + 2 10 

13 

0 

1 

’ 1 

1000 

2 1 + 2 6 


NPATH = 13 NLOOP = 0. 


3. A check is now performed (DO 6) for First Order Loops that may- 
have been created. These are recognized by having identical LPATH 
entries (i.,e. , LPATH(l, 1) = LPATH(I, 2), e. g. , entry 11 above). Each 
time one is found, it is stored in the lower half of the LOOP array by means 
of Subroutine EQUAL and its value is stored in V and LS. NLOOP is 
incremented. The LPATH entry is marked deleted and the loop is printed, 
(as a debugging aid). The DO 11 then marks all nodes which have only 
leaving or only arriving transmittances as deleted since they obviously 
cannot be contained m any loops. (Entry 9 in the example). Subroutine 
CLEAR is called to remove deleted entries. Now the data looks like this: 


I 

LPATH(I, 1) 

LPATH(I, 2) 

VPATHC) 

sd) 

LOOP(3001 -I) 

1 

7 

3 

1 

0 

2 3 

+ 2 7 + 2 8 

2 

1 

7 

10 

0 

2 1 

+ 2 2 + 2 7 

3 

7 

1 

1 

1000 

2 1 

+ 2 6 + 2 7 

4 

3 

7 

10 

0 

2 2 

+ 2 3 + 2 7 

5 

7 

3 

- 0 . 1 

0 

2 3 

+ 2 7 + 2 8 

I 

1 

LOOP(I) V (I) 

2 1 +2 5 +2 6 +2 1 ° 10 ' 

LSd) 

1001 





NPATH = 5 

NLOOP 

= 1 





4. If the number of paths remaining (NPATH) is 0, this step is not 

performed. Otherwise this step combines the remaining paths to generate 
more First Order Loops. The method is to combine path 1 with path 2 if 
possible. If this combination is a legal loop, it is stored in the low end of 
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LOOP. If it is a legal path, it is combined with path 3 and testing continues. 

If it is not a legal path, the combination 1 and 3 is tested. After the com- 
bination of 1 and NPATH has been tested, the procedure begins again with 
2 and 3, 2' and 4 and so on until NPATH - 1 and NPATH is reached. During this 
process all paths are kept m LPATH and the high end of LOOP ORDER(l) 
is the number of the current transmittance which is being tested against 
ORDER(2). The ORDER(I) contains the numbers of all the paths from 1 to I 
being tested. The testing consists of the following; 

a. The beginning node of the first path is checked against the 
ending node of the second. If they are not the same, they cannot be 
combined (e. g. , entries 1 and 3 m the example), so the test fails. 

b. The two blocks m LOOP are ANDed and Subroutine UNPAK is 
called to find the nodes that are common to both. 

c. If the ending node of the first path is not the same as the 
beginning node of the second, this cannot be a loop but it might be a new 
legal path so test is performed. 

d. If N3 is non-zero, there are more than two nodes in common 
so this cannot be a legal combmation - the test fails. 

e. If the nodes in common (Nl, N2) are the beginning and ending 
nodes of the two paths, this is a new First Order Loop. It is inserted by 
incrementing NLOOP and calling Subroutine EQUAL. 

f. If more than one node is in common (N2, N3 ^ 0), this cannot 
be a new legal path so the test fails. Otherwise Subroutine EQUAL is 
called to insert the new path and I is incremented so that testing will 
continue with this latest path. 

This step ends when ORDER(l), the pointer to the lowest level path, is 
pointing to NPATH, the last path. 

In the example the following results are obtained from applying 
the'se tests . 

a. 1 and 2 from a new legal path. This cannot be combined with 
'3 because node 7 is traversed twice. 1 and 4 however produce a new First 
Order Loop. 
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b. 2 and 3 form a new First Order Loop. 

c. 3 and 4 form a new path. This new path cannot be combined 
with 5 because node 7 is traversed twice. 

d. 4 and 5 form a new First Order Loop. 


Now the data has been changed to First Order Loops. 


I 

LOOP(I) 

V(I) 

LS(I) 

1 

2 1 + 2 5 + 2 6 + 2 10 

10 

1001 

2 

2 2 +2 3 +2 7 +2 8 +2 

9 10 

0 

3 

2 i +2 2 +2 6 +2 7 

10 

1000 

4 

2 2 + 2 3 + 2 7 + 2 8 

-1 

0 


NLOOP = 4 


) 

These First Order Loops may be easily verified by examining the 
Flowgraph. Notice that the order of the nodes in the loops is irrelevant 
for the purposes of the program. 


5. The values of the First Order Loops are now entered (DO 25) into 
the Transfer Function array VN according to the Shannon-Happ formula. 
Tagged values {LS > 500) have the tag of 1000 subtracted and are then 
entered into the numerator VN(I, 2) instead of the denominator VN(I, 1). 
The number of First Order Loops is then printed and the calculation of 
Higher Order Loops is ready to begin. 


6. The procedure for the generation of Higher Order Loops is 
essentially the same as that for generating First Order Loops described 
in step 4; that is, loop 1 is compared with loop 2. If this creates a new 
Higher Order Loop, then the value of the new loop is entered into the VN 
array and it is checked against loop 3 for the possibility of a still higher 
order loop. When all combinations with loops 1 and 2 have been tried, 
combinations of 1 and 3 are tried, then 1 and 4 and so on until 1 and 
NLOOP. Processing iihen continues with 2 and 3, 2 and 4 and so on. As 
before, ORDER(l) points to the lowest level loop so that each time it is 
incremented it is written out, thus serving as a guide to how much 
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processing remains to be done. (Since this step is often the most time 
consuming part of the entire NASAP program, this information is very 
useful). As soon as ORDER(l) is equal to NLOOP, processing is complete 
and control returns to the calling program with the Transfer Function now 
m array VN. In the example. Higher Order Loop evaluation would proceed 
as follows 

a. 1 and 2 form a Second Order Loop, its value is entered 
(100S 1001 ) and it is checked against 3 (failure, i. e. , Ml ^ 0 because nodes 
1, 2, 6, 7 are common to both) and 4 (failure). 

Then 1 is checked against 3 (failure) and 4 (success, value -10s 1001 ). 

b. 2 and 3 fails, 2 and 4 fails. 

c. 3 and 4 fails. 

In several places, instead of manipulating entries m LOOP by means of 
Subroutine EQUAL, the manipulations are performed directly in Subroutine 
LOOPS by means of the Equivalence array LOGIC (See Sec. 4. 4). This is 
because in frequently executed statements the time required for execution 
of the subroutine linkage becomes significant. This is especially true m 
the ANDmg of Higher Order Loops which can increase rapidly with the 
number of First Order Loops. 

With the Transfer Function now m array VN, Subroutine ANSWER 
is called to format the raw form m VN, normalize it and print it out. 

1. Upon entry Subroutine ANSWER writes the page heading on the 
output. Then VM, the array containing the Function after normalization, 
is created (DO 2). 

2. The arrays NEXP (containing powers of S), AS and ASIGN (con- 
taining arithmetic signs) are created (DO 40). 

3. The arrays are written out (except for zero coefficients) and the 
line dividing numerator and denominator is printed to the proper length. 
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4. Finally the factor after normalization is printed, (Also, as a 
debugging aid, the original VN array is printed). Control then returns to 
the calling program. This completes the description of the basic NASAP-70 
Transfer Function algorithm. The routines described may be modified by 
the addition of other options (particularly the Sensitivity and Worst Case 
option). Nevertheless the basic algorithm remains the same. 

4. 2, 4 Sensitivity and Worst Case 

The Sensitivity and Worst Case option involves additions to the basic 
algorithm for finding the Transfer Function. The basic formulas used for 
evaluation of the Sensitivity Function, Worst Case Tolerance and Pole 
Sensitivity are* 

FORMULAS USED 7 

SENSITIVITY FUNCTION 

q P ~ d(LnP) _ H(P«,Q) H(P,Q) 

Q d(LnQ) H(PO H(P) 

_ H(P)H(Pi,Q) - (H(PQH(P,Q) 

H (P r ) H(P) 


= circuit element value 
* dummy transmittance 


1 WORST CASE TOLERANCE 


t p = 


TP/P = 


'8P_ 

9Qi 


n 


Q. 


O 

9Q ^nj 


’’2 1 ^ 2 


n 


or 


Q 


,P dQi 


2 ( S Q Q 

1=1 \ l i 


1/2 
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POLE SENSITIVITY 8 


dS 


dQ 


i Q = - KD(S) 


gg [C(S)+KD(S)] 


S=S, 


where Transfer F = or 
n 


A(S)+KB(S) 

C(S)+KD(S) 


K=circuit element value, and 
S^= a pole 


= -Q H(P, Q' ) 

^[H( p )] 


s=s 


i 


In response to reading a card following the Circuit Description and 
before the first Output Requests section, beginning with the letters SENS, 
Subroutine SENSIT is called. If the card begins with WORS Subroutine 
WORST is called. Subroutine SENSIT and WORST make use of the Card 
Scanning Utilities described m Sec. 1. 2. 2. 


Subroutine SENSIT processes Sensitivity Request cards which have 
the form: 

SENSITIVITY] = Element Name 


1. Upon entry Subroutine SENSIT calls Subroutine ASCAN to find the 
equals sign. If one is not found, a diagnostic Is printed and step 5 gams 
control to read a new card. 


2. A search of the CARD array is performed (DO 4) in order to find 
the Element Name. If it is not found, a diagnostic is printed and step 5 
gams control. 

3. Otherwise the element is rejected with a diagnostic if it is an 
independent source, if more than 20 Sensitivity Requests have been made, 
or if it is another Sensitivity Request for the same element, and step 5 
gams control. 

4. Having passed all these tests the element is inserted in the list of 
Sensitivity Requests by incrementing NSEN, the number of Sensitivity 
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Requests and by assigning a TAG value to the SENS entry for this element. 
NSEN, SENS and TAG are in Common block GAG. SENS(I) contains the 
value of the sensitivity tag assigned to element I from the list of 20 tags, 
TAG. These tag values are used later to identify various loops during the 
evaluation of Higher Order Loops in Subroutine LOOPS, and Subroutine 
REDUCE. 

5. A new card is read and Subroutine SHIFT is called. If it is not a 
Sensitivity Request card control returns to the calling program. Otherwise 
the card is printed and step 1 regains control to continue processing. 

If Subroutine WORST is called. Sensitivity Requests are inserted 
for each valid request. Thus, if more than 20 Sensitivity Requests results 
NFLAG is set and the Worst Case Request is ignored. 

1. Initially Sensitivity Requests are inserted for all valid elements 
(l. e. , not independent sources) in the DO 1. This is done by inserting a 
TAG value in SENS(I) for element I. 

2. If the number of Sensitivity Requests resulting is greater than 20, 
NFLAG, an error flag internal to Subroutine WORST, is set and a diag- 
nostic is printed. Otherwise, NWORST, the flag which indicates the Worst 
Case option has been requested, is set, and the TOL(I) array which contains 
the Tolerance value for element I is initialized to 0. 1, 

3. This step looks for cards of the form 

TOL - Element Name = Value. 

A new card is read and Subroutine SHIFT is called. If the card begins 
with TOL and NFLAG ^ 1 (which would indicate that Worst Case analysis 
has been aborted) then Subroutine ASCAN is called to find the element 
name which is checked against the list in CARD. If there is no matching 
element name a diagnostic is printed and step 3 is repeated. Otherwise 
Subroutine ASCAN and NUMBER are called to determine the Tolerance 
Value which is inserted in TOL(I) for element I. Then step 3 is repeated. 
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If NFLAG is 1, the Tolerance Cards are read in step 3 but no other action 
is taken. 

4. If step 3 encounters a card not beginning with TOL and NFLAG is 
not 1, the table of Tolerance Values is printed. Control then returns to 
the calling program. 

Once the Sensitivity Tags have been inserted in the SENS list then, 
as the Flowgraph is built by Subroutine GRAPH, the tags are inserted in 
the S array for each Flowgraph transmittance. Then, m order to write 
out the correct power of S for each Flowgraph transmittance, these tags 
must be temporarily removed. This is done by calling Subroutine REDUCE 
for each transmittance before it is printed by the Mam program. 

Subroutine REDUCE (I, J, K) removes the tags from the S or LS 
array. I is the entry m the S or LS array. J is the true power of S 
returned by Subroutine REDUCE after all the tags have been removed. K 
is set to 1 if the entry does not contain the dummy transmittance and to 2 
if it does. 

1. Upon entering Subroutine REDUCE, K is set to 1 and J is set to I. 

If no Sensitivity Requests were made (NSEN = 0) and step 3 gains control. 

2. If Sensitivity Requests were made, these tags are removed in the 
DO 1 loop. Since the Sensitivity Tags start from 2000 and go up, and 
since it is necessary to remove the largest tags first, the DO 1 loop is 
executed from L = 21 - NSEN to 20 and 21 -L is used as the index of the 
TAG array. For example, if two elements are tagged M =21 -2=19 then L 
goes from 19 to 20, i. e. , 21-L goes from 2 ro 1. An entry contains a tag 
if the value (with all higher tags removed) is greater than the tag less 500. 
If it is greater, the tag is subtracted and the search continues. 

3. J is checked for the presence of the unknown transmittance tag 
(1000). Thus if J is greater than 500, 1000 is subtracted from J and K 
is set to 2. 
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Processing continues as normal until the steps in Subroutine LOOPS 
which insert values of First and Higher Order Loops into various arrays. 
The method of inserting values into VN, the Transfer Function array, has 
already been described (Sec. 4. 2. 3). The Sensitivity Functions now involve 
three additional arrays' VNOO, VN01 and VN10 which represent ~H(P, Q), 
JT(P,Q) and -H( P, Q) in the formulas described previously in this section. 
The insertion of these values is performed by DO 979 and DO 799 m Sub- 
routine LOOPS. Subroutine REDUCE is called to extract the pertinent tags 
and the values are inserted in the correct Sensitivity Function arrays based 
on these tag values. Thus, when Subroutine LOOPS returns control, not 
only has the Transfer Function been inserted m VN, but also the Sensitivity 
Functions have been entered into VNOO, VN01 andVNIO. 

After Subroutine LOOPS has returned and Subroutine ANSWER has 
printed out the Transfer Function, if NSEN is non-zero (indicating the 
presence of Sensitivity Functions) then Subroutine SENSC is called. 

Subroutine SENSC forms the Sensitivity Functions from polynomials 
produced by Subroutine LOOPS. The Sensitivity Function is equal to 

H(P) H(P,Q)-H(P)H(P,Q) 

H(P) H(P) 

where the H functions are stored as follows 

H(P) . VN(I, 1) H(P, Q) : VN01(I, J) 

H(P) : VN(1, 2) -H(P,Q) VNOO(I, J) 

J is the element whose sensitivity is being found. 

In many cases, H(P, Q) (VN01) is 0 in which case the Sensitivity 
Function reduces to 

-H(P,Q) 

H(P) 

1. Upon entry to Subroutine SENSC, the DO 305 loop is executed for 
each circuit element checking to see if It was tagged for sensitivity 
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(SENS(I)^O). If it was tagged the following steps are performed, otherwise 
the succeeding element is checked. When all the elements have been 
checked control returns to the calling program. 

2. The DO 306 loop determines the sensitivity number of the element 
(II). Then the DO 701 loop checks the VN01 array. If it is completely 0, 
the simplified formula above may be used so VNSEN, the array containing 
the Sensitivity Function is filled with the appropriate coefficients (DO 703) 
and Subroutine ANSWER is called to print out VNSEN. 

3. If VN01 is not completely 0, then the standard formula must be 
used to compute VNSEN. Thus Subroutine MUDT is called once to multiply 
VN(I, 1) and VN01(I, II) and again to multiply VN(1, 2) and VN00Q, II) and the 
results are added, (DO 702) to form the Sensitivity Function numerator. 

Then Subroutine MULT is called again to multiply VN(I, 1) and VN(I, 2) to 
form the denominator and then Subroutine ANSWER is called to print 
VNSEN. 

Thus, upon termination of Subroutine SENSC, the information m 
VN, VN00, VN01 and VN10 has been converted to a set of Sensitivity 
Functions stored in VNSEN and VNOO, VN01 and VN10 are no longer 
needed. Subroutine SENSC (and also Subroutine WORSTC below) make 
use of Subroutine MULT(A,B,C, MINA, MAXA, MINB, MAXB). This 
Subroutine multiplies the two polynomials A, B and puts the result m C. 

MINA, MAXA and MINB, MAXB are the minimum and maximum powers 
m polynomials A and B. A, B, C are arrays of length 101 and the index is 
51 plus the power of the term. Array C is reset to 0 before multiplication 
occurs. 

After Subroutine SENSC returns control to the Main program, the 
information m VNSEN is copied from Common block BITS into Common 
block POLY. This is to release the area in BITS for use as a workspace 
for use in later routines (e. g. , the Plotter). If NWORST is non -zero, a 
Worst Case has been requested so the Main program calls Subroutine WORSTC. 
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Subroutine WORSTC computes the square of the Worst Case Tolerance 
function from the Sensitivity Functions and Tolerances for the elements. 

This function becomes 

T P/P 

The Sensitivity Function for an element can be in one of two forms, 

P _ A i (s) P _ B i (s * 

Q l “ H(P) ° r b Q L H(P) H(P) 

where A(s) and B(s) are polynomials in S. Therefore two separate sums 
/ dQ \2 
are kept, one of (A (s) 1 

\ 1 Q i/ 

combined and put with the proper denominator to produce the square of 
the function. 

1. Upon entry Subroutine WORSTC checks each element to see if a 
Sensitivity Function exists for that element (DO 10). If a Sensitivity 
Function exists (SENS (I) ^ 0, then the Tolerance for that element (TOL) 
is squared and Subroutine MULT is called to square the Sensitivity 
Function numerator of that element (VNSEN(I, 2, J). 

2. The denominator of the Sensitivity Function is now checked (DO 20) 
to see if it is the same as the Transfer Function denominator. If it is, 
the squared tolerance (TOL1) and the squared Sensitivity Function numer- 
ator (VWORKN) need only be multiplied and added to VW1. If it is not, 

NDEM is set to 1 and the result of the product is put in VW2. 

3. If NDEM is 0, the simplified formula- 

VW1 
VN(I, l) 2 

may be used, so VW1 is put into the numerator of VW(DO 40) and Sub- 
routine MULT is called to square VN(I, 1) and enter it in the denominator. 


and one of 


(*.'■> 


and these are 



i=l 


dQj 

q7 
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VW(I, 1). If NDEM is non-zero, the standard formula 

VW2 + VW1 x VN(I, 2) 2 
VN(I, 2} 2 x VN(I, l) 2 

must be used. Thus Subroutine MULT is called once to square VN(I, 2) into 
VWORKN and again to multiply VWORKN and VW1 into the numerator of the 
Worst Case Function VW(I, 2). Then VW2 is added into the numerator 
(DO 31). Finally Subroutine MULT is called to multiply VN(I, 1) and VN(I, 2) 
into VWOKRN and again to square VWORKN into VW(I, 1), the Worst Case 
Function denominator. 

4. The maximum and minimum powers of S in the Worst Case Functions 
are determined and control then returns to the calling program. 

When Subroutine WORSTC returns control, the Main program calls 
Subroutine ANSWER to print out the Worst Case Function. 

The last subprogram of the Sensitivity and Worst Case option is 
Subroutine POLSEN. This subroutine evaluates the sensitivities of the 
Poles of the Transfer Function (determined by Subroutine ROOTS described 
in Sec. 4, 2. 6) to variations in a circuit parameter. Subroutine POLSEN is 
called by the Mam program when a card of the form 

ROOTS, POLES 

is read. Subroutine POLSEN then analyzes the roots found by the preceding 
call to Sub rout me ROOTS. 

1, If the Poles have not yet been found (NPOLES=0) or there is no 
Sensitivity Request (NSEN=0), Subroutine POLSEN prints a diagnostic and 
returns to the calling program. 

2. The derivative of the denominator of the Transfer Function is 
found (DO 5) and stored in VDERIV. This is evaluated at the Real and 
Imaginary parts of the Poles and is stored m C(Real) and D( Imaginary) . 
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3. For each element, tagged for Sensitivity Analysis, the numerator 
of the Root Sensitivity Function, -QH(P, Q) (VN10) is evaluated at each 
Pole and then Real and Imaginary points are stored in X and Y. The Real 
and Imaginary parts of the Pole Sensitivity X/C(L) and Y/D(L) are evaluated 
and printed. 

4. Subroutine Polsen then returns control to the calling program. 

Two other routines. Subroutines PLOT and INVERT, of the Plotter 
also contain some code in connection with the Sensitivity and Worst Case 
option. These subprograms are described in the following Section 4. 2. 5. 

4. 2. 5 The Plotter 

NASAP-70 is equipped with extensive plotting capabilities for 

analysis of the Transfer Function and Sensitivity Functions. When a card 

beginning PLOT is encountered among the Output Requests, the Main 

program calls Subroutine PLOT to analyze this card and providing that the 

analysis of this card was successful (ERR 0), Subroutine INVERT is 

called to initiate the plotting. If the plot card TYPE option is FREQ or 
o 

REAL, the calculation of the points to be plotted is handled entirely within 
Subroutine INVERT. Any other TYPE option constitutes a call to the Fast 
Fourier Transform routines. After the points have been calculated. Sub - 
routine PRTPLT writes out the plotted points. (BMOD and AMOD below 
are fixed and floating point names for the internal plotter option list). 

1, Subroutine PLOT initially sets the BMOD list (the internal list of 
options) to -1 which indicates that the option did not appear on the PLOT 
card. Subroutine ASCAN is called to find the Left Parenthesis of the PLOT 
card which should be of the form- 

PLOT( Option = Value/Option = Value/Option = Value. . . ) 

If a Left Parenthesis is not found Subroutine MSG is called to print a 
diagnostic. Subroutine ASCAN is called repeatedly until a Left Parenthesis 
or a Slash is found. If a Blank is found step 6 gains control to fill in 
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options which are required by the Plotter but were not specified by the 
user. 

2. Subroutine ASCAN is called to find the equal sign. If an equal sign 
is not found. Subroutine MSG is called to print a diagnostic. If a Blank or 
a Right Parenthesis is found, step 6 gains control. If a Slash is detected, 
step 2 is repeated. At this point, the Option field has been found. 

3. Subroutine ASCAN is called to find the Value field. If the first 2 
letters in the Option field are TY then BMOD(3) (known elsewhere as 
NTYPE), the internal code which tells the plotter which type of plot has 
been requested, is set according to the first 2 letters in the Value field* 

IM* 0 ST. 1 EX 2 SI: 3 

PU 4 FR* 6 SE 7 WO-8 

RE* 9 

If this is the end of the PLOT card (B is a Blank or a Right Parenthesis), 
then step 6 gains control. Otherwise step 2 regains control to get the 
next Option. 

4. If the first 2 letters of the Option field are EL, this option is 
connected with the Sensitivity and Worst Case Option. Thus, the CARD 
and SENS arrays are searched (DO 31 and DO 37) to match the element 
name m the Value field and obtain the Sensitivity Tag associated with it. 

If such a match cannot be obtained, a diagnostic is printed, the ERR flag 
is set and control returns to the calling program. Otherwise, if this is 
the end of the PLOT card then step 6 gains control, else step 2 regains 
control. 

5. If this step is reached, the first 2 letters of the Option field are 
not TY or EL so the Value field contains a number. Hence, Subroutine 
NUMBER is called to find the number in the Value field. This number is 
inserted into the correct variable according to the first 2 letters in the 
Option field 
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ST STEP (AMOD(l), the interval between successive plot points) 

TI TOTEE (AMOD(2), the interval between the first and last points 
plotted) 

AM : AMP1 (AMOD(4), the positive portion of a pulse train) 

BI AMP2 (AMOD(5), the negative portion of a pulse tram) 

CO FREQ1 (AMOD(6>, a in e at ) 

CY FREQ1 (AMOD(6), f in Sin 27rft) 

FR FREQ1 (AMOD(6), starting point for frequency and real plots) 

TO FREQ2 (AMOD(7), ending point for frequency and real plots) 

WI * FREQ2 (AMOD(7), pulse width for a pulse train) 

DE • NPLOT (BMOD(8), number of calculated points per printed point) 

Then, if the end of the PLOT card has not been reached control returns to 
Step 2. 


6. This step completes user options which were not specified, with 
default values. If an option has not been specified, BMOD is still -1. If 
BMOD(3) is more than 5 (i. e., not a Time Response) then these defaults 
are used: 


FREQ1 (AMOD(6)) 1 

FREQ2 (AMOD(7)) . 10 6 

STEP (AMOD(l)) . < p|eQ1 ,Q1 ) 

If BMOD(3) (NTYPE) is less than 6 and then 

If STEP and TOTEE (AMOD(l) and AMOD(2)) are both unspecified, 
STEP .01 TOTEE 1.0 
STEP (AMOD(l)) TOTEE/ 100 
TOTEE (AMOD(2)) . STEP X 100 
NTYPE (BMOD(3)) • 0 (Impulse Response). 

AMP1 (AMOD(4)) 1.0 


If AMP2 (AMOD(5)) was specified, AMP1 is biased accordingly. 

FREQ1 (AMOD(6)) : 1.0 

If FREQ2 (AMOD(7)) was specified, NTYPE is set to 5 to indicate a Pulse 
Train. 
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7 , 


In all cases, if DEN (BMOD(8)) was unspecified, it is set to 

1. If BMOD(3) is 7 (Sensitivity Plot), the arrays containing the 
numerator (Al) and denominator (Bl) of the function to be plotted are filled 
with the correct Sensitivity Function (DO 50) and a heading is printed. If 
BMOD(3) is 8 (Worst Case Plot), the arrays are filled with the Worst Case 
Function and a heading is printed. For all other values of BMOD(3), the 
arrays Al and Bl are filled with the Transfer Function. Subroutine PLOT 
then returns control to the calling program. 

Assuming the analysis of the PLOT card was successful (ERR ^ 1), Sub- 
routine INVERT is called to initiate the plotting process- 

1. Upon entry. Subroutine INVERT resets NFLAG (the remainder 
indicator) to 0, sets STEP to 1 if it was negative, and evaluates NUMTI, 
the number of points to be plotted. Then, if a Time Response has been 
requested (NTYPE less than 6), Subroutine INPUT is called to evaluate the 
transform of the response. Then, in the case of a Time Response, the 
function to be plotted m A and B is checked. If it is too simple, a diagnostic 
is printed and the plot is aborted. If it is not rational, the numerator is 
divided by the denominator and the remainder of this division is us ed as 

the function to be plotted. A message to this effect is printed and NFLAG 
is set to 1. 

2. The function m A and B is printed and if NTYPE is less than 6 (a 
Time Response), the plot axes (ABSC and ORD) are marked 1 TIME 1 and 

1 MAG 1 and Subroutine SCALE, ROUTH, SAMPLE, FLIP and ADJUST are 
called to perform the Fast Fourier Transform. Control then returns to the 
calling program. 

3. In cases where a Time Response has not been requested (NTYPE 
greater than 5) a further test is made. If NTYPE is not 9 (a REAL plot), 
NUMTI is calculated for a logarithmic plot instead of a linear plot. Then 
the points are calculated (DO 4) and entered into the TEE, FCTN (and PH 
when NTYPE is not 9) arrays. For a REAL plot, the real part of Z, 
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(i. e. , cr) Is incremented in linear steps. Otherwise, the imaginary part of 
Z (i. e. , jw) is incremented in logarithmic steps). 

4, After the points have been calculated, ABSC and ORD are labelled 
1 FREQ’ and 1 MAG, and Subroutine PRTPLT is called to output the points. 
In the case of a REAL plot, the Phase must always be 0 so if NTYPE is 9, 
Subroutine INVERT returns control here. Otherwise, ORD is labelled 
' PHA 1 , FCTN is filled with the points from PH and Subroutine PRTPLT 
is called again before control returns to the calling program. 

In the case of Time Response plots (NTYPE less than 6) Subroutine INPUT 
is called by Subroutine INVERT to evaluate the transform of the response* 

1. Upon entry. Subroutine INPUT prints out the quantities associated 
with each type of plot according to NTYPE. 


2 . 


The Transform of the response is calculated as follows: 


NTYPE = 0 Impulse Response, No change is required since F(jw) = 1. 

1 Step Response. F(yw) ■= ~ so B, the denominator, is multiplied 
by iw. 

2 Exponential. F(;jw) = — - 7 , so B is multiplied by 

’ — JW-IRUXoil 

(jw-FREQl) 

F(jw) = 2ttxFREQ1 so B ig mu itiplied 


3 Sine Wave. 


( jw) 2 + ( 27TXFREQ 1) 2 


by (jw) 2 + (27TXFREQ1) 2 and SCMAG is multiplied by (2 ttxFREQ1). 


4 Single Pulse. F(jw) = (l~e 


-]wFREQ2) 


jw 


so B is multiplied by 


jw and the tags ISN and NTAY are set to indicate that the factor 

(1 . e -jwFEEQ2 )istob uded -jwFREQjL 

1 - 3 wFREQ 2 ^ (e J ) 


Pulse Train. F(jw) = • — (1-e 
jw 


1-e 


-jwFREQl 


so B 


is multiplied by l/jw and the tags NTAY and ISN are set to 
show that the additional factors must be included later. 


3, After the correct transform has been calculated. Subroutine INPUT 
returns control to the calling program. 
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Later on. Subroutine INVERT begins the Fast Fourier Transform, 
by calling Subroutine SCALE: 

Subroutine SCALE simply readjusts the values of the Fourier 
Transform coefficients (m A and B) to avoid Floating Point 
Overflow. Control then returns to the calling program. 

The next step m the Fast Fourier Transform is to call Subroutine 
ROUTE. Subroutine ROUTH uses Subroutine CALCR to find a path along 
which the integral 

—• C F(cr + jw)e^ a+;]W ^ t dw 
J o 

is to be evaluated. This path must lie to the right of any poles m the com- 
plex plane. As shown in Figure 4. 5, Path 1 is not acceptable while Path 2 
is acceptable. This is due to the fact that the Real Part of S (=cr) must be 
negative to e^ w)t 


Figure 4 S 

m order for the integral to converge. The upper limit of 27T for the integral 
is sufficient because after Subroutine SCALE has readjusted the Transform 
coefficients, all the significant information has been pushed into this range. 
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1. Subroutine ROUTE uses an initial SIGMA value of 0. 0 and calls 
Subroutine CALCR(LOGI) to see if all the poles lie to the left of the SIGMA 
value. Subroutine CALCR returns a LOG1 value of True if all the poles 
lie to the left of SIGMA, otherwise, it returns False. Subroutine ROUTE 
increments the value of SIGMA until Subroutine CALCR returns True. 
Having found an acceptable value of SIGMA, control returns to the calling 
program. 

2. Subroutine CALCR (LOG1) uses the Routh Stability Criterion to 
determine whether all poles lie to the left of the current value of SIGMA. 

If they do, the value returned in logical variable LOG1 is True, otherwise 
it is False. Upon entry, D(I, J), the Routh Table, is reset to 0(DO 242). 

3. The Routh Table is then computed, and the first column (D(l, J)) is 
checked (DO 245). If any zero or negative values are found, LOG1 gets a 
value of False and control returns to the calling program. 

4. Otherwise LOG1 gets the value True, and control returns to the 
calling program. 

Having found an acceptable SIGMA value. Subroutine INVERT calls 
Subrouting SAMPLE. 

1. Subroutine SAMPLE computes the quantities F(ct + jw) and + 
which are stored in RSPNS(I) and EXCMP(I), respectively, (DO 130). As 
each point is evaluated, the fLag ISN is tested to see if the transform 
requires any modification. (ISN was set by Subroutine INPUT as the 
Fourier Transform was calculated). Any modification required is per- 
formed by means of complex variable ZZ. 

2. Subroutine SAMPLE then returns control to the calling program. 

With the sample points now in RSPNS and EXCMP, Subroutine 
INVERT calls Subroutine FLIP, the heart of the Fast Fourier Transform. 

1. Upon entry to Subroutine FLIP, the coefficients in the RSPNS array 
are reordered as prescribed by the Fast Fourier Transform technique 
(DO 106). 10 
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2 . 


The integral 



is computed (DO 110 and DO 108) thus producing the output response 
samples in RSPNS. 

Subroutine ADJUST is called to re-evaluate the first 5 sample points by- 
means of a Taylor Series. The Taylor Series coefficients are computed by 
Subroutine TAYLOR and entered into the TERM array. 

1. Upon entry Subroutine ADJUST enters the Time points into the TEE 
array and the output sample points into the FCTN array (DO 150). 

2. If SIGMA is non-zero, each of the sample points in FCTN is multi- 

rrf 

plied by the e factor. (DO 153). 

3. Subroutine TAYLOR is called to enter the Taylor Series coefficients 
into the TERM array. 

4. If NTAY is non -zero, the Taylor Senes coefficients are used to 
enter the first 5 output points into the FCTN array. If the series fails to 
converge at any one of the points (FNP(I) greater than 1000) the remaining 
points of the original 5 are not altered. 

5. Subroutine PRTPLT is called to print and plot the data points. 
Control then returns to the calling program. 

Subroutine TAYLOR uses the Transfer Function coefficients A(I) B(I) to 
obtain a Taylor Series. 

1, The Taylor Series is computed term by term and entered into the 

TERM and POW array. (DO 214). If any term becomes too large (greater 
60 

than 10 ), the Taylor Series is halted and NTAY is reset to zero. 

2. Control returns to the calling program. 
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Subroutine PRTPLT prints and plots the points in the TEE and FCTN arrays, 

1. Upon entry Subroutine PRTPLT writes out the points m TEE and 
FCTN in three columns. If NPLOT, the number of points to be plotted from 
the total number computed (the plot density), is zero, control returns to the 
calling program. 

2. The maximum and minimum plot points are found (DHI, DLO). The 
points are plotted into the P array and printed out one at a time (DO 182) 
along with axis labelling for the TEE axis. Control then returns to the 
calling program. 

4.2.6 Rootfinding 

The Poles and Zeroes of the Transfer Function are evaluated by 
means of Subroutine ROOTS. This routine is called by the Main Program 
in response to reading an Output Request Card containing the word ROOTS. 

Subroutine ROOTS is essentially a modified version of the Svoboda 
Polynomial Rootfinder. In this algorithm, the complex plane is searched 
for zeroes using a five point test. As a root is detected, the search step 
size is repeatedly decreased to 1/16 of its previous value until the five 
points in the five point test do not yield significantly different results. 

Thus, the root is found to the maximum resolution available from the 
computer. The original polynomial is used for the final test while the 
reduced polynomial, having previously found roots divided out, is used for 
the coarse testing. This technique combines the ability to handle multiple 
roots while retaining the accuracy of the original unreduced polynomial. 

The scan is performed initially within the unit circle to obtain roots less 
than 1. 0. The polynomial is then inverted to cause roots which were 
greater than 1. 0 to fall within the unit circle. The five point test used by 
the algorithm is neither necessary nor sufficient to find all the roots of the 
polynomial, yet in practice, the algorithm has yielded remarkable results 
despite its non-rigorous mathematical foundation. The roots produced by 
this algorithm represent not only the root values themselves but also the 
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accuracy to which the roots were found, since every non-zero digit in the 
root is guaranteed correct within the accuracy of the computer. This 
information is of considerable value when high order polynomials are 
being evaluated. 


START 



Fifure 4 6 Flow of Control in Svoboda Algorithm 
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The flow of control among the various logical routines of the algorithm 
is depicted in Figure 4. 6. After obtaining the input data, the Scanning 
Routine systematically steps over the Unit Circle evaluating the reduced _ 
polynomial (i. e. , one having previously found roots divided out) at five 
points on each step. When a criterion for the possible existence of a root 
at any step is fulfilled, a transfer is made to the Home -in -Routine. Math- 
ematically, this criterion is neither necessary nor sufficient for the existence 
of a root. The Home -in -Routine approximates the root as closely as possible 
and then transfers to the Root Examination Routine. Using the Round-off 
Routine, the Root Examination Routine either rejects the root or refines 
it (by means of the Home- in -Routine again) and outputs it. Since refinement 
always uses the original unreduced polynomial, and since it proceeds by 
successive significant digits, every non-zero digit printed is guaranteed 
correct within the accuracy of the computing system. Control then passes 
back to the Scanning Routine which either continues scanning or stops 
because the required number of roots has been obtained. When a scan is 
completed, if the max im um number of scans has not yet been reached, the 
Inversion Routine gains control to "invert" the polynomial, before returning 
to the Scanning Routine which continues to scan. A detailed discussion of 
each element of the algorithm follows. 

1. The Scanning Routine 

The main routine in the Algorithm is the Scanning Routine which 
moves across the Unit Circle as shown in Figure 4. 7. The real and 
imaginary axes between the ranges (-1, 0), (1, 0) and (0, ~i), (0, i) are 
divided into sixteenths. The Scanning Routine uses the Polynomial Evalua- 
tion Routine to find five points at each step in the scan, the central point and 
four points one sixteenth above, below, to the left and to the right of the 
central point. A test is then performed to see if this point is near a root. 

The criteria for transferring to the Home -in -Routine to examine a possible 
root more closely are. 
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1. The value at the central point must be less than the value of any of 
the four surrounding points. 

2. The five points must not be equal in value. 

Note that the criteria are mathematically insufficient to determine the 
existence of a root. 

If these criteria are not met, the scan is incremented by one 
sixteenth and the scanning process is resumed. Scanning is performed 
from left to right and from bottom to top. 



Figure 4 7 The Five Point Scan 


When a scan has been completed, that is, when the point (1, 0) has been 
evaluated, a check is performed to see if the number of scans has exceeded 
an upper limit. If not, a transfer is made to the Inversion Routine (described 
below) which performs the inversion of the polynomial and then returns 
control to the Scanning Routine. 

The maximum number of scans allowable is twice the number of 
roots in the polynomial. Since at least one root must be obtained after 
each pass of both the "real" polynomial and the "inverted" polynomial 
(requiring a total of two scans), a number of scans no more than twice the 
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number of roots not yet found should be required for the algorithm to work 
properly. (Usually, considerably fewer scans are required because several 
roots may be found on one pass). If this number is exceeded, however, the 
routine stops automatically. 

The problem of evaluating the circumference of the Unit Circle 
twice (once on a "real 1 ' scan and once on an "inverted" scan) is solved by 
taking two precautions. Firstly, all points evaluated in a "real" scan must 
be within the Unit Circle, while an "inverted" scan is permitted to violate 
the boundary of the circumference slightly. This precaution alone, however, 
is not sufficient to avoid a duplication of roots which lie close to the boundary, 
therefore, in the Root Examination Routine a check is performed to see if 
the root under consideration has appeared previously in another scan. This 
second precaution prevents roots which have been found once by a "real" 
scan and once by an "inverted" scan from appearing twice. 

2. Polynomial Calculation 

The Polynomial Calculation Routine uses Horner* s Technique to 
evaluate the polynomial complex value from the coefficients. Basically, 
Horner* s Technique is the iterative evaluation of the expression 

F, i = (F.+ a ) • x i goes from 1 to n 
i+1 i i 

with F, = (0, 0) and F , = F + a . , the final value, a. is the fth coeffi- 
1 n+1 n n+1 i 

cient in the polynomial. 

> n , 11-1 > , 

P(x) = a. x + a_x + ♦ ♦ • + a x + a , . . 

12 n n+1 

Thus the final value is cumulatively built up in F. If necessary, the complex 
value (F) is divided by previously found roots to form a reduced polynomial 
value 

-p _ P (A 

(R. -x) <R 0 -x) ... (R -x) 

12 m 

where m is the number of roots found previously. In order to avoid over- 
flow, the absolute value of any of the factors (R^-x) is not allowed to be 
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_6q 

less than 10 . The final step is to obtain the residual (the complex 

absolute value) of F. 

H “ \J([ Re(F)} 2 + [Im(F)l 2 

The residual is computed for four or five points (the Home -in -Routine 
does not require the central point to be evaluated each time) on each entry 
to the Calculation Routine. It is these four or five values (H) which are 
used by the Scanning and Home -in -Routines as the polynomial values at the 
test points. 


Polynomial Inversion 


In order to obtain all the roots of the polynomial 

t,/ \ n , n-1 

P(x) = a, x + a 0 x + * ♦ • + a x + a 

1 2 n n+1 


by scanning the complex plane within the Unit Circle, at some point a new 
polynomial is formed from the original one by reversing the order of the 
coefficients. The roots of this new polynomial are the reciprocals of the 
roots of the original polynomial, thus effectively bringing inside the Unit 
Circle all the roots which were previously outside. The Inverted Poly- 
nomial is 

P 1 (y) » a n+1 y n + a^y 11 1 + • • • + a g y + a 1 . 


If P(r) = 0, it is easy to show that 
P(r) = l/r n P(r) = P' (1/r) 


Therefore, y = l/r is a root of the new polynomial p’ . 

Thus, in order to obtain all the roots of a polynomial, the program 
must deal effectively with two kinds of roots, "real 1 ' and "inverted, " and 
must obtain the reciprocal of "inverted" roots before writing them on the 
output. The polynomial Inversion routine, simply reverses the order of 
the coefficients, sets a program variable to point to either the "real" or 
"inverted" techniques, and returns control to the main program. 

i 
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4, 


Home -mg In 


Once five'points have been obtained which fulfill the criterion for 
root examination, the homing -in procedure subdivides the distance between 
the central point and one of the outside points into sixteenths and, using the 
central points as a starting value, employs the Polynomial Evaluation 
Routine to compute four new outside test points. These new four points 
and the central point are then examined for the one having the smallest 
residual which becomes the central point for a new five point test. If this 
new central point is the same as the previous central point, the scale is 
subdivided into sixteenths as before so that the five point test becomes 
progressively more refined. At each subdivision, a new level of significance 

is obtained (each significant digit being a Hexadecimal digit because the 

* 

scale factor is 16). This process of "home-ing in" is continued until either 

1. The required number of digits of accuracy is reached or, 

2. The residuals of the five points do not differ by a significant amount. 

In case 2, the resolution of the computing method and system has 

been reached and the remaining significant digits, if any, are filled with 

zeroes. This represents a Stopping Criterion which is independent of any 

11 12 

formula for round-off error, * but depends only on the previously 
mentioned resolution. 

Each time a new step is taken in the Home -in -Routine, three checks 
are made. Firstly, if the central point should happen to be the origin (0, 0), 

t 

the scale is expanded (subdivided by sixteenths), this allows for roots which 
may range over large orders of magnitude. Secondly, if more than sixteen 
steps should be taken in one direction at the same level of significance the 
level of significance is dropped so that larger (coarser) steps may be taken. 
Finally, a check is performed to ensure that the routine does not stray too 
far out of the Unit Circle. This safeguards against the possibility that the 
original location presented to the Home -in -Routine was not m the vicinity 
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of a root, in which case it could easily wander outside the Unit Circle. If 
this condition should be detected, the Home-m is aborted and control is 
returned to the Scanning Routine. 

If either case 1 or case 2 occurs, the Home-m -Routine has reached 
a successful completion and transfers control to the Root Examination 
Routine. 

5. Root Examination Procedures 

The Root Examination Routine first checks to see if the root just 
found came from the original polynomial coefficients or from a reduced 
polynomial. If the polynomial was a reduced one, the value of the root can 
be regarded merely as an approximation. The Home -in -Routine is there- 
fore called again to repeat the latter part of the home-m procedure this 
time using the original polynomial and using the approximate root as a 
starting value. This technique ensures that every root is found from the 
original polynomial and that its accuracy does not depend on the accuracy 
with which previous roots were found. 

After the final root value is obtained, a second check is made, this 
time on its residual. If the residual Is greater than a certain value, the 
root is considered unreliable and is discarded. If this should occur, control 
is transferred back to the Scanning Routine. The maximum value of the 
residual is chosen arbitrarily to be one half the value of a n+ ^, the constant 
coefficient in the polynomial. 

Having passed these tests, the root value is rounded -off m the 
Round-off Routine (which is not discussed here because it has no bearing 
on the actual rootfinding algorithm). If the root is "inverted 1 ’ it 1 s reciprocal 
is found using floating point division, and this value, after being rounded -off 
agam, becomes the root value. A third check is then performed on the root 
to see if it has been found on a previous pass. (This check was mentioned 
previously m connection with the Unit Circle Boundary) . If both real and 
imaginary parts fall within one significant digit of a root found on the other 
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type of pass ("real") it is rejected as a root but is nevertheless entered, 
in the same way as acceptable roots, in the list of roots used to form a 
reduced polynomial. (This prevents its being found again). If the root is 
not rejected, it is converted from its internal hexadecimal representation 
to decimal, rounded-off again, and is written on the output. 

A final check is made to see if the required number of roots has 
been obtained. If not, control is returned to the Scanning Routine, other - 
wise the algorithm terminates. 

Because the algorithm lacks a rigorous mathematical foundation, it 
cannot be guaranteed to find all the roots. However, every root detected 
is guaranteed accurate within the accuracy of the computing system, it is 
independent of the technique used to find the roots. 

4. 2. 7 The Automatic Scaler 

The Main program always calls the Automatic Scaler, Subroutine 
SCALER, before the Flowgraph is constructed. Subroutine SCALER 
examines the element values in the VPATH list and if the range of expo- 
nents of Inductors and Capacitors is too large, the values are multiplied 
FACTOR 

by 10 where FACTOR is an integer which is determined so as to 

minimize the range of exponents. If no such FACTOR can be found, a 
warning is printed. 

Since the element values are modified after scaling, the 1 S’ symbol 
Which appears in the Transfer Function must be reinterpreted. For 

-3 -1 

example, if FACTOR is determined to be 3, a capacitor of value (10 s) 
becomes 

_q a -1 _i 

(10 s x 10 ) = (s) 

_3 

thus the new s is 10 times the true s. Therefore, wherever * s’ appears 

3 

m the Transfer Function 10 s must be substituted. Similarly, all the plots 
and roots obtained by operating on this scaled transfer function must be 
modified. 
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1. Upon entry to Subroutine SCALER, all elements containing s (i. e. , 
inductors and capacitors) are checked (DO 1). The sum of their exponents 
is entered into D. At the same time, the sum of their exponents scaled by 
10 ^ is entered into DL and the sum of their exponents scaled by 10 xs 
entered into DR. 

2. If D is less than 60 and FACTOR is 0, no scaling need be done so 
Subroutine SCALER returns. Otherwise, D, DL, and DR are compared to 
see whether FACTOR should be incremented or decremented for minimum 
D. If D is not already minimum, FACTOR is adjusted and then control 
passes back to step 1 for another iteration. If D is already minimum, 
FACTOR is checked to see if it is still 0, If it is, no scaling could be 
performed so a warning is printed and control returns to the calling 
program. 

3. If FACTOR is non -zero, all the inductors and capacitors are 

multiplied by 10 (DO 5). Control then returns to the calling 

program. 

4. 3 Modular Organization 

NASAP-70 has been designed m order to facilitate easy insertion of 
additional routines and removal of supplied routines. Each module is 
called from the main routine. In general, three modifications are required- 

1. The insertion or deletion of a Fortran CALL statement which 
transfers to the routines to be inserted or deleted. 

2. The addition or removal of the routines themselves. 

3. Using the Dictionary of Variables, conflicts in variable names may 
be eliminated in the case of insertions, and Common blocks and variables 
no longer required may be removed in the case of deletions. 

If these steps are followed, users having a working knowledge of 
Fortran should have little difficulty adding new capabilities to their versions 
of NASAP-70. 
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4. 3. 1 Removal of Supplied Routines 

Under certain circumstances it may be desirable to remove some 
of the routines supplied -with NASAP-70 (e. g. , in order to run in less than 
32K words). For proper operation NASAP-70 requires only one of the 
circuit description analysis routines and the Transfer Function routines. 
Thus, the following modules may be removed: 

Either Subroutine NASAP or Subroutine READ. 

Subroutine FINE. 

Sensitivities and Worst Case option. 

Plotting package. 

Rootfmder. 

Automatic Scaler. 

For instance, if the Sensitivities and Worst Case option is to be 
omitted, all the references to Subroutines SENSC, WORSTC, MULT, 
SENSIT, WORST, and POLSEN should be deleted, as well as those routines 
themselves. Finally, Common blocks POLY and WORST1 and references 
to their variables should be removed. 

4. 3. 2 Addition of User Routines 

A user who is familiar with the operation of NASAP-70 may desire 
to add some of his own options to the supplied program, e. g. , for further 
analysis of the Transfer Function. If any scanning of card images is to be 
performed, it is wise to become acquainted with the card scanning utilities 
ASCAN, BSCAN, CSCAN, SHIFT, NUMBER, etc. If bit manipulation is to 
be performed the utilities LOR, LOX, UNPAK, etc. , are available. 

Finally, if operations are to be performed on the Transfer or Sensitivity 
Functions, the method of storage of these data in the 1 VN 1 arrays should 
be examined (4. 2. 3 and 4. 2. 4). 

If NASAP-70 is used with the Overlay structure, all user-written 
routines should be called by the mam program only. This will eliminate 
troubles due to calling routines not in core. In general, workspace is 
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available in the following Common blocks- 


BITS 4095 Words 

SPEED 2048 Words 

This may not be true at all times, however, so the user should 
consult the Dictionary of Variables to ensure that he does not erase any 
useful data.- 


4-59 



REFERENCES 


1. IBM System /360, Fortran IV Language, Systems Reference Library 
Form No. C28 -65 15 -7. 

2. Potash, H. and L. P. McNamee, Application of Unilateral Graph 
Techniques t o Analysis of Linear Circuits, Proc. 23rd Natl. ACM 
Conf., 1968, pp. 367-368. 

3. McNamee, L. P. and H. Potash, A User 1 s Guide and Programming 
Manual for NASAP, UCLA Department of Engineering Report No. 68-38, 
August 1968. 

4. Happ, W. W. , Flowgraph Techniques for Closed Systems, IEEE Trans- 
actions on Aerospace and Electronics Systems, Vol. AES -2, May 1966, 
pp. 252-264. 

5. Knuth, D. C., The Art of Computer Programming, Vol. 1, Fundamental 
Algorithms, Addison -Wesley, 1968. 

6. Russell, E. C., H. Okrent and L. P. McNamee, Instrumentation of a 
NASAP Subroutine , IEEE Transactions on Eduction, Vol. E-12, No. 4, 
December 1969, pp. 243-250. 

7. Carpenter, R. M. , "Computer-Oriented Sensitivity and Tolerance 
Techniques, " Course Notes Automated Circuit Anal ysis, UCLA, 

April 3-7, 1967. 

8. Vattuone and Dorf, Root Sensitivity as a Design Criterion, First 
Asilomar Conference, November 1967, pp. 287-290. 

9. Haag, K. , "Designers Manual for Computer-Aided Design of Communi- 
cation Circuits, " Illinois Institute of Technology, Final Report Contract 
NAS12-2064, December 1969. 

10. Knuth, D. E. , The Art of Computer Programming, Vol. 2, Seminumerical 
Algorithms, Addison -Wesley, 1969. 

11. Muller, D. E., A Method for Solving Algebraic Equations Using an 
Automatic Computer , Mathematics of Computation (formerly Mathe- 
matical Tables and Other Aids to Computation), 1956, pp. 208-215. 

12. Adams, A., A Stopping Criterion for Polynomia l Root Finding , 
Communications of the ACM, Vol. 10, No. 10, October 1967, 
pp. 655-658. 

13. IBM System /360 Operating System, Fortran IV (G and H) Programmer 1 s 
Guide, Systems Reference Library Form No. C28 -6817-1. 

14. IBM System /360 Operating System, Linkage Editor and Loader, Systems 
Reference Library Form No. C2 8 -6538-7. 


PRECEDING PAGE BLANK NOT FILMED 


4-61 



CHAPTER 5 

SYSTEM REQUIREMENTS 
5. 0 Computer Requirements 

NASAP-70 requires a computer with no less than a 32K word 
memory to run, using the Overlay Structure in Section 5. 3. For some 
computers having unusually large System Monitors the supplied program 
may be too large anyway. If this should be the case, some of the supplied 
options may have to be removed or restricted, e. g. , the Sensitivity option 
could be reduced to handling fewer than 20 elements. This would decrease 
the size of Common block POLY. On computers with more than 32K words, 
the Overlay Structure may be neglected entirely. This would not only sim- 
plify the loading procedure but also decrease running times. 

NASAP-70 needs no additional scratch units other than a card 
reader and line printer. 

/ 

5. 1 Running a NASAP Problem from the Source Deck 

NASAP-70 is distributed as a Fortran source deck. The program 
must be compiled and loaded in order to run any problems on it. If no 
changes are to be made, this process may be performed directly. In the 
case of a machine with a smaller memory, the user may wish to use the 
Overlay Structure described in Section 5. 3. When a user possesses a 
machine with a very limited memory, some modifications to the source 
deck may be necessary (e. g. , Removal of some supplied routines, reduction 
of COMMON sizes). Guidelines for these changes are given m Section 4. 3. 2. 

If a user possesses a machine which has a Fortran compiler which 
uses "backwardmg addressing", (e.g., IBM 7094) he should ensure that 
all COMMON blocks are adjusted to the correct lengths as described in 
Section 5. 5. Further, care should be taken to correct any problems with 
the Fortran AND function (Section 5.4). 
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Having made any necessary changes in the source deck, the program 
may be compiled' and loaded. If the machine on which the program is to be 
run, is not IBM 360 compatible, it is strongly suggested that the sample 
problems be run and verified with the solutions given before any large -size 
user problems are attempted. 


Here is the IBM/ 3 60 control card deck for running NASAP from the 

_ . 13,14 

source deck 

/ / NASAP JOB (Installation dependent data). 

II STEP1 EXEC FORTHCLG, PARM. LKED=» XREF, LIST, OVLY< 

1 1 FORT. SYSIN DD * 

Fortran Source Decks go here. 


//LKED. SYSIN DD 
INSERT MAIN 
OVERLAY ONE 

INSERT ASCAN, BSCAN, CSCAN, ISORT, MSG, NUMBER, SHIFT, SORT 
OVERLAY TWO 

INSERT NASAP, SENSIT, WORST 
OVERLAY TWO 
INSERT READ, UNITS 
OVERLAY TWO 
INSERT WHAT, PLOT 
OVERLAY ONE 

INSERT FINE, SCALER, POLSEN 
OVERLAY ONE 

INSERT EQUAL, LOR, LOX, LSTOP, UNPAK 

OVERLAY THREE 

INSERT CALC, INBIT, GRAPH 

OVERLAY THREE 

INSERT LOOPS, CLEAR, REDUCE 

OVERLAY ONE 

INSERT MUI^T, SENSC, ANSWER, WORSTC. 

OVERLAY ONE 

INSERT INVERT 

OVERLAY FOUR 

INSERT INPUT, SAMPLE, FLIP 

OVERLAY FOUR 

INSERT ADJUST, TAYLOR, PRTPLT 
OVERLAY FOUR 
INSERT SCALE, ROUTH, CALCR 
OVERLAY ONE 
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INSERT ROOTS 


/* 

//GO.SYSIN DD ¥ 

User Problem Data Decks go here. 

/* 

// 

5.2 NASA P -70 Input Data 

The input data consists of three sections 

1. Title Cards (Optional) 

2. Circuit Description 

3. Sensitivity and Worst Case Section (Optional) 

4. Output Requests. 

1. Up to 10 Title Cards are allowed. They are printed m the output 
listing exactly as they are read. 

2. The Circuit Description section may be m one of three forms 
depending on the format of the first card 

a. NASAP 

b. TREE 

c. CIRCUIT (Operating Frequency) 

a. For compatibility with other versions of NASAP, this heading card 
will cause the program to accept the circuit description m the form described 
in the previous NASAP User 1 s Guide. This data format corresponds to the 
following conventions- 

Each card contains one circuit element. The first letter describes the 
element and must be one of the following 

V Voltage Source 
I Current Source 
C Capacitor 
L Inductor 
R Resistor. 



Each of these letters may be followed by up to 11 alphanumeric characters 
to bring the total number of characters in the element name to not more 
than 12, 

The card format is as follows. 

NAME ORIGIN TARGET VALUE UNITS (optional) DEPENDENCY (optional) 

NAME refers to the previously described element name. ORIGIN 
and TARGET refer to the origin and target node numbers of the element. 
VALUE is the element value in any format. UNITS is optional and must be 
one of the following: 

UF 

PF 

MH 

UH 

K 

M 

If UNITS is not specified, MKS units are assumed. DEPENDENCY 
is also optional and represents the name of some other element appearing 
m the circuit description, preceded by the letter V or I to denote dependency 
on voltage or current. 

At least one blank must appear between each of the data fields on 
the card, otherwise the data is freefield. The last card in the circuit 
description must contain either the word OUTPUT or the word END. 

This form of circuit description relieves the user of the need to 
organize the tree. Instead, the program automatically builds a tree which 
results in minimum computation time. 

b. For a user -defined tree, a different input format is used. Following 
the TREE card are the circuit description cards. The last card in this 
section must be a card with the word END. The first 1 or 2 letters on 
each circuit description card must be one of the following: 
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E Independent Voltage Source 
J Independent Current Source 
CE Capacitor Branch 
CJ Capacitor Link 
LE Inductor Branch 
LJ Inductor Link 
RE Resistor Branch 
RJ Resistor Link 
DE Dependent Voltage Source 
DJ Dependent Current Source 

Each of these may be followed by up to 10 or 11 alphanumeric 
characters to bring the total to not more than 12. 

The data card format is as follows 
NAME {ORIGIN - TARGET) = VALUE UNITS (Optional) 
or 

NAME/DEPENDENCY (Optional) (ORIGIN - TARGET) = VALUE UNITS (Optional) 

NAME refers to the element name described above. DEPENDENCY is 
one of the letters V or I to denote voltage or current dependence, followed 
by the name of the controlling element. ORIGIN and TARGET are the 
origin and target node numbers. VALUE is the element value. The 
optional UNITS field must be one of the following 

MP 

MMF 

PF 

MH 

MMH 

K 

M 

If the units are not specified, MKS units are assumed. All input 
cards are free-field. Blanks and/or commas may be used freely and are 
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ignored by the program. All other punctuation must appear exactly as 
shown. 

c. For a tree constructed for optimum accuracy at a specific frequency, 
the CIRCUIT card is used in conjunction with the operating frequency in cps 
enclosed in parentheses. The input data format is identical with that used 
after a TREE card except for the format of Capacitor, Resistor and Inductor 
names where it is no longer possible to differentiate between branches and 
links 

C Capacitor 

i 

R Resistor 

L Inductor. 

If no operating frequency is specified, a default of 1 cps is supplied. 

3. SENSITIVITY INPUT REQUESTS 
SENSITIVITY FUNCTION- 

To obtain the sensitivity of the transfer function to a particular 
circuit element, a sensitivity request card is required. These cards 
must immediately follow the 1 END 1 or 1 OUTPUT’ cards termmating the 
circuit description. The format of the sensitivity request card is as follows* 

SENSITIVITY = ’ ELEMENT NAME, 
or 

SENS = ' ELEMENT NAME 1 

where ’ ELEMENT NAME’ is the name of a circuit element. 

Sensitivity request for independent voltage and current sources are 
ignored. Also, a maximum of twenty valid sensitivity requests may be 
processed for each circuit. 

The sensitivity function (in terms of S) is printed m the same format 
as the transfer function. 
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WORST CASE ANALYSIS: 


A worst case analysis can be provided for circuits of twenty elements 
or less (not counting independent voltage or current sources). To obtain 
this analysis, a card must be provided immediately after the 1 END T or 
1 OUTPUT* cards terminating the input description in the following format 

WORST 

To obtain a worst case analysis, the tolerance of each element must 
be known. These values may be provided by * TOLERANCE* cards which 
have the following format 

TOL = * ELEMENT NAME* - * VALUE* 

Where * ELEMENT NAME* is the name of a circuit element, and ’ VALUE* 
is the relative tolerance for this element. If no * TOLERANCE* 

card is provided for an element, a default value of . 1 (10%) is assumed for 
the tolerance. 

As well as a function of S giving the square of the worst case 
tolerance, sensitivity functions for all the elements are also printed. 

Thus no * SENSITIVITY* cards may be present when a ’ WORST* card 
follows the circuit description. 

4. The Output Requests section may contain 

a. Transfer Function requests 

b. Plot requests, (optional) 

c. Roots Requests, (optional). 

Any number of Transfer Function requests may appear and any 
number of Plot requests may be included following a single Transfer 
Function request Only one Roots request may appear after each Transfer 
Function request. The last card in the Output Requests section must be a 
card containing either the word END or the word EXECUTE. 
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a. The Transfer Function requests have the following format 

TYPE NAME 1 / TYPE NAME 2 

where TYPE NAME is the name of an element which has appeared in the 
Circuit Description^ preceded by the letter V or I to denote whether 
Voltage or Current is desired. TYPE NAME 2 must be an Independent 
Source. 


b. The plot request is a single card of the following form: 
PLOT (Option = Value / Option = Value. . . . ) 

The following options are available 


1. TYPE = IMPULSE 

STEP 

SINE 

EXPONENTIAL 

PULSE 

FREQUENCY 

SENS 

WORST 

REAL 

2. AMPLITUDE = a number 


for impulse response 

for a step function 

for a sine wave input 

for an exponential input 

for a pulse or pulse train 

for a frequency response 

for a sensitivity function plot 

for a worst case function plot 

for a transfer function plot with 
a as the independent variable 


> represents the magnitude of any of the waveforms. 

3. BIAS = a number 


may be used only with PULSE to obtain a train of positive and 
negative pulses. It is combined with AMPLITUDE, e, g. , 
AMPLITUDE » 10 
BIAS = -2 
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gives 
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4. CONSTANT = a number 

at 

may be used only with EXPONENTIAL. It represents (a) xn (Ke ). 

5. FREQUENCY “ a number (in Hz/s. ) 

may be used only with SINE to specify the frequency of 'the sine wave. 

6. DENSITY = a number 

to specify the number of calculated points per plotted point, 

7. TIME = a number (in Secs.) 

should always appear with a time response. It specifies the 
duration of the plot. 

8. WIDTH = a number (in Secs. ) 

may be used only with PULSE to specify the duration of a pulse. 

9. CYCLE = a number (in Secs.) 

may be used only with PULSE to specify the time of 1 cycle, 
e. g. , WIDTH = 10 
CYCLE = 15 
gives : 
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10. STEP = a number {in Secs. ) 

specifies the time between individual calculated points. It may be 
used with any TYPE option. 

11. FROM = a number, TO = a number 

specifies the beginning and ending points of a frequency response 
(= w/27r), sensitivity, worst case or real plot. (= cr). 

12. ELEMENT *= an element name for which a sensitivity function has 
been requested may be used only with SENS to identify the sensitivity 
function to be plotted. 

Only the first 2 letters of each word are used, therefore, AM may be used 
as an abbreviation for AMPLITUDE, IM for IMPULSE, etc. 

Since continuation cards are not allowed, all the options for any one 
plot request must appear on one card. Not all the options are required 
since defaults are provided, e. g. : 

PLOT(TIME ~ 1) produces an IMPULSE response of 100 steps and of 
duration 1 sec. 

Defaults 

TYPE = IMPULSE 
TIME = 1 sec. 

STEP = .01 
AMPLITUDE = 1 
DENSITY = 1 
CONST = 1 
FREQ = 1 

The options may appear in any order on the Plot card. Inconsistent requests 
will be ignored, e. g. , TYPE = IMPULSE, FREQ 53 2 yields an Impulse 
response. 
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c. To obtain the roots of the numerator and denominator of the Transfer 
Function, a card with the word ROOTS must appear after the Transfer 
Function request. 

The sensitivity of the poles of the transfer function may be obtained 
by adding the word 1 POLES 1 to a ! ROOTS' card 
ROOTS, POLES 

The sensitivity of the Poles are produced for all elements for which 
a sensitivity request had been issued (or all elements if a 1 WORST 1 card 
was included). 

Several complete problems may run at one time. To terminate the 
execution of NASAP, a card containing the word STOP is used. 

NASAP-70 can handle. 

Up to 50 elements 

Up to 50 circuit nodes 

Up to 20 sensitivity requests 

The circuit nodes should be numbered consecutively starting with 1 
for best efficiency. This is not required, however. When more than 30 
circuit elements are to be analyzed, the time required for the computation 
in Subroutine LOOPS begins to increase sharply. This effect is due to the 
presence of more than 2 words per block in Common Block BITS. 

5. 3 Overlay Organization 

The recommended Overlay Structure is shown m Figure 5. 1, This 
is not required for running NASAP but when included, it decreases the 
overall program size. However, the Overlay Structure is required to 
allow the program to fit into a computer with only a 32K word memory. 
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NASAP 

SENSIT 

WORST 


OVERLAY STRUCTURE FOR NASAP-70 


MAIN 


ASCAN 

FINE 


EQUAL 

MULT 

INVERT 


BSCAN 

SCALER 


LOR 

SENSC INPUT 

ADJUST 

SCALE 

CSCAN 

POLSEN 


LOX 

ANSWER SAMPLE 

TAYLOR 

ROUTH 

ISORT 



LSTOR 

WORSTC. FLIP 

PRTPLT 

CALCR 

MSG 



UNPAK 

- 



NUMBER 


CALC 


LOOPS 



SHIFT 


INBIT 


CLEAR 



SORT 


GRAPH 

REDUCE 




READ WHAT 
UNITS PLOT 


ROOTS 
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5. 4 The Fortran AND and OR Functions 


NASAP-70 requires the ability to perform a full word AND and OR 
on fixed point word variables in Fortran. This has been accomplished on 
the IBM 360 by means of the Fortran Logical .AND. and . OR. functions. 

The fixed point variables are given Logical type aliases and the AND or OR 
is performed on these logical type names. For example 

LOGICAL A, B, C 

EQUIVALENCE (A, I) (B, J), (C, K) 

_ I = 12 
J = 20 

C = A. AND. B 

would yield a value of 4 in K. On many other compilers a Logical type 
. AND. and . OR. does not operate on all the bits in the word. If NASA P -70 
is compiled on such a system it will give incorrect results. 

On systems which do not have the full word Logical . AND. and . OR., 
often another function is available for the same task. If no such facility is 
provided, the user must write his own AND and OR functions in Assembler 
Language. In either case statements of the type 

C = A. AND. B 

must be replaced by statements of the type 
K = IAND (1, J) 

This logical . AND. and . OR. is used in the following subprograms 

Subroutine LOOPS 
Function LOR 
Function LOX 

These are the only routines which are affected by the logical type AND. 
and . OR. but the user must ensure that these changes have been made 
before he attempts to run any NASAP-70 problems on a machine which is 
not IBM 360 compatible. 
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5. 5 Compatibility Among Various Computers 

Apart from the Fortran Logical type. AND. and . OR. functions 
described in the previous section, there are other facts about the IBM 360 
Fortran compilers which could be a source of trouble on other computers. 

The origins of Common Blocks on the IBM 360 are computed from 
the first variable m the block. On some compilers, however, the origin 
is computed from the last variable in the block, (e. g. , IBM 7094). This 
allows occurrences of Common Blocks with the same name to have different 
lengths on the IBM 360. On compilers which compute the origin from the 
last variable (l. e., "backward addressing") all the occurrences of the 
same Common Block must be adjusted to the Same length (with dummy 
variables if necessary) 'before compilation. 

The test of the index in a DO loop is performed at the bottom of the 
DO. Thus m the following group of statements, the DO is executed once. 

N1 = 3 
1 N2 = 2 

DO 11 = Nl, N2 

Further, in the case of the abnormal termination of a DO loop, the index 
variable retains its most recent value. NASAP has been programmed to 
avoid these problems with DO statements but they are mentioned here 
nevertheless to illustrate the way in which the IBM Fortran compilers 
handle special DO conditions. 

Finally, a zero value for the index of a Fortran Computed GO TO 
is not treated as an error. Instead, execution proceeds with the statement 
following the GO TO. For example 

N = 0 

GO TO (1, 2), N 

N = 2 

1 N = 1 -N 
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2 N = N + 7 

would yield N = 6. 

NASAP-7G is designed for IBM 360 compatible computers therefore 
some modification will be required if it is to be run on computers which 
are not IBM 360 compatible. 
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TAG*0 UCLA 510 

NSEN=C UCLA 520 

NW8RST=0 " ' UCLA 530 

DO 987 11=1/50 UCLA 540 

987 SENS(I1)=0 ' UCLA 550 

C SKIP _A PAGE. __ _ _ UCLA .560 

WRITf(6»202) ~ ‘ ~ UCLA 570 

202 FeRMAT('l****NASAP»***i//’ NETWORK ANALYSTS AND SYSTEMS APPLICAUCLA 580 
1TI0N PROGRAM'//' THIS VERSION WAS DEVELOPED AT UCLA ENGR, bEPT«*//UCLA 590 
2/) _ , UCLA 600 

1 READ(5/l00)A " . - - UCLA 610 

.11 NE*NE+i_ _ _ UCLA_620 

WR I TF ( 6/ 20C ) A " “ " UCLA 630 

100 FORMAT (80A1JI yCj,A 6^0 

200 F0RMAT(lX/8OAlT ~ " ' UCLA 650 

CALL SHIFT(A) _ UCLA 660 

IF { ( A ( 1 ) *NE»AN ) IUR. (' a (2)*ME,'aAT);9R. (A (3) *NE.AS >“.0R. (A(4)»NE = AAj ) UCLA" 670 

_ 1GQ TO S __ _ U CLA 680 

NE*0 ' ' " “UCLA 690 

call_nasap _ _ _ UCLA 700 

Ge TO 3 ' “UCLA 710 

2 lF((A(l).NE«T),dR.<A{2).NE.R).eR*{A{3>*NE.E),eR*[A(4)*ME.E))G0 TO UCLA 720 

‘14 ‘ ” - - ~ “UCLA 730 

__ NE »0 UCLA 740 

CALL READ ~ ” UC'LA 750 

GO TO 3 _ _ _ _ UCLA 760 


“5" '' 1F‘( (AfiJ .NE.Cj;gR r .'{A'TF3'.TJE'.A! ) ,fR.TA"( 3 T.NE,R}, 8 ^'f'(A 74 ") •‘NEfCHGO TeUCLA 770 


15 _ 

NE=0 

I TREE" 1 

"Call-Read 

if(erR*eq.o)call fine 


UCLA 780 
‘ "UCLA 790 
_UCLA 800 
“ U CIV'S 10 
UCLA 820 


G 8 “T 8 3 “ ~ ----- - ' “UCLA '830 

5 IF ( (A <i> .EG)* AS) .AND. CA{ 2) .EQ.T) . AND . { A (3 > .EQ .8 ) • AND, ( A ( 4 ) ,EQ.P> 5STUCLA 840 

fep - get* a5o 

C PRINT A WARNING AFTER EVERY 1q HEADING CARDS UCLA 860 

: ucor 870' 

8 WRITE (6/ 201) UCLA 880 

2 01” “FBRfffiTTloX/ , **‘i'*‘"M8RE THAN'TO “TITLE CARDS" NOT’ ALLBWEOV«CRECK"TO UCCA~S90 
isee if heading card was omitted. m ucla 900 

gCLX'910 

UCLA 920 


NE*0 
GB TO 1 

3 I F ! ERR .EQTO ) G8 TIT 


WRl TE ( 6 > 204 ) 
"FBrhATT7” 

G8 T8 7 


“DUE TB ETxceSsTVE~Err8rS.T )' 


6 HR ITE ( 612031 

203 F6RMAT( '1ELEMENT NUMBER 


ELEMENT NAME DEPENDENCY {IF ANY) 


TG'IN 'NODE , IAr'JEI WDE VALUE' 

*/lX/T23( 1 - 1 )/) 

wr rfET 6 THiT> nTTCARDTiraTTg, 37 12) /idepti rm rut 

1ETU)/VPATH{I )/TYPE< I)/SENER(I ), 


UCLA 940 

IICCS 950 

UCLA 960 

UCC'A 970 

8 RIUCLA 980 


TAG " — GENERiUCLA' 99fT 

UCLA1000 

T/T3TF0W! GTN'(T)7T ARGUCLA 1010 
I » i/NE ) UCLA1020 

~9X>T17 10X7T IT‘UCLA'1030 


A -2 




ERRaO ’ UCLA1540 

20 IF { < A C 1 ) .EO*R> .AND. (A<2),EQ.0) .AND. (A<3) .EQ.O) .AND, (A(4 ) ,EQ*T> .AN0UCLA1550 
1. (ERR*EQ.O> )CALL R 00 TS " ' " " " ' UCLA1560 

CALL^SHXFILA) . UCU157P 

IF < < A ( 1 ) .EQ.Pj.AND . ( A ( 2 ) • EQ. 8 ) . AND. ( A ( 3 ) »EQ.AL) . AND* ( A ( 4 ) . EQ* E ) UCLA 1 580 

♦.AND. (ERR.EQ.Q) >CALL P9LSEN UCL A1590 

1 F C < A ( 1 > .NE.W) , 0 R. (A(2) .NE.0 ) .0R. < A (3> .NEfiR*) ,SR. {A(4> .NE.AS) ) UCLAl&ltT 

_ ♦Ge T0 610 UCLA 1620 _ 

WRITE < 6. 302 ) ' UCLA1630 

302 F0RMAT(/1OX> '***♦ SENSITIVITY 0R W0RST CASE REQUESTS MUST IMMeDI ATUCLA 1640 
♦ELY^FFUCreinHE CiRCUIT _ DTSCR1P'TI0N-- -REQUEST" IGNORED.'' ) ' " UCLA1650 

Ge TB 14 UCLA4 66 Q_ 

610 IF( (A(l). NE.AS). 0R.(A(2j.NE.E).0R.(A(3}'.NE.AN).0R. ( A ( A) .NE.AS - ) ) ~UCTA1670 

♦SB TO 611 __ UC LA168 Q 

WRITE <6/3025 ' " UCLAl69o 

SB T8 14 UCLA1700 

611 I F ( (A <1 ) TREVT) . 0R . ( AT2 ) • N EID ) .“0 R . ( A { 3 ') • NE , A L T ) 68 70 14 ' UCLAl7ID'“ 

WR 1 TE ( 6. 312 ) -UC LA1720 


*T case card--card ignored,* > uclai740 

60 T0 14 ‘ UCXaT?^6 

12 WR!TE(6i210) - UCLA1760 

'210 FoRMATT/ToX. i***»"NTSSTNG MEND 5F~PR0BLEM 1 1 CARD'OTMOLATED BT _ PR0lTCLA 1 770 

1GRAM. 1 ) : UCLA1780 

WRITE (6. 202) UCLA1790 

G0 TO 11 UCLA1800 

13 lF((A(l5.NE«P).0R.(A(2) .NE.AL) ,efT.XA(3) .'NE.eT,'6RV ( A ( 4) .NE.TTTG8^T8UCLTl8lO 

115 UCLA1820 

WRITE <6/2061 UCLA 1830“ 

206 F0RHAT(/loXi '*### PLOT. RB0T AND POLE SeNSITIvITY REQUESTS MUST F0UCLA184O 

#LL0w THEIR C8 RReSP8NDIRG"SWFUt — REQUE 5T5'. '/15X/ 5ITEDU EJ^roNSRFIJTYyOCUATSBo - 

G8 T0 14 UCLA1860 

T5 1 fTT AIT 5" «"N E TRyT'e RT - ; AT2T.N E « 0 ) . OR, <A<3»*NE70 ) , e'ff.' (AT{4l •'NETT5TQ'B _ T0 Gcl“A'l'870 
♦303 UCLA1880 

WRTTET61"2o'6‘) UCCST890 

G0 TO 14 UCLA1900 

”303 IF( (AID.NE'.F)'. 0R.(A<2).NE. B5. 8R.<A(3). NE.AL). 8r.(A<4).NE.E)) UCL'A'1'910~ 

*G0 T0 393 UCLA1920 

W RTT ET6J '2 0"6‘ ) T1CL7.T930 - 

G0 T8 I 4 UCLA1940 


~393“lF(TATmNEvAS ) .0R,(A(2) . NE ,E ) • 8 R'.TA ( 3 ItNETAN fi 6 R * ( A 1 4 JTNEl AST) DCLAT950 - 


*G0 T0 304 UCLA1960 



WRIf£<6.302) 
G0 TO 1A 

UCLA1970 

UCLA1980 

304 

IF t (M 1 ) *Nfc.« 1 ) »0R. ( A (2) .Nt»t) ) .0R« t A (3) «nE»AL) ) 68 t0 315 
WRI TE ( 6. 312 ) 

1JCCX1590- 

UCLA2000 

315 

G0 TO l 4 

IF < < A< 1 >• NE.W). eR.(A<2).NE.0>.8R.<A(3).NE.R),0R.(A(4>. NE.AS)) 

UCLA2010 

UCLA2020 


♦Ge TB 16 
WrItE(6.302) 

UCLA2030 

UCLA2040 

16 

G0 Tg 14 
INPsi 

UCLA2O0O 

UCLA2060 


"TTETTE16.207 )Nt IMEs 

0CI7A2O70~ 


A “4 


207 re9-5AT(//lX.» *> 14) 

CALL WHAT 

IF (FRP.FS.t )GP TO 17 
onisi = l^°ATH 

fall jf'mi i>c»-t tines) 

CALL I' BIT( IiHPATril l> 1),-nTINES> 
IS CALL INJIT<I,KMTH( Ia2)a-NTI1ES) 
C/LL L69PS 

OCO 3 J=3 , aoaO 
99 ,J IT=;(I )=0.0 
96831=1,20 
SMAxi ( I ) =0 
8S S^I -1 ( I ) =0 

NS-!IN« m IN 0(SHM(1 ),SMl\(g) 1 
N&'-ax^'AVOI^MAJ U>,SMAX<g)> 

call a> s^epi vi^nsn^nshi^o) 

IF ( SF M .EQ»C)G3 Te i 1A 
CALL SFNSr 
oe?i i = i*ac!Ao 

21 PPLY,I>=P1TS(I) 

DP22I=1,20 
S^AXOOI I )=3 r *AXlt I ) 

22 SM\oC( I )*S«IM< I ) 
JF(^v0°ST.FC*0)Ci° Tf> lH 
CALL ‘-"PSTC 

call amsi-ewivi^gmaxh^ 501x2,-1) 


UCLA2080 

UCLA2090 

IJCLA2100 

UCLA2110 

UCLA2120 

UCLA2130 

UCLA2140 

UCLA21S0 

UCLA2160 

UCLA2170 

UCLA2180 

UCLA2190 

UCLA2200 

JCLA2210 

UCLA2220 

0CLA2230 

■JCLA2240 

UCLA2250 

UCLA2260 

UCLA2270 

UCLA2280 

UCLA2290 

UCLA2300 

’JCLA2310 

UCLA2320 

UCLA2330 


Gp T9 14 
^NJ 

5lj3r9UT!XE ABCAY/p, I, J) 
t- -F.O/TENT U« 

of al LFF T, 0IXU5 


UCLA2340 

UCLA2350 

UCLA2360 

UCLA2370 

UCLA2380 


CO M ‘ j n f ' /Tata/ A" ')c:[7),SLASH,LEFT,P0eD(^) , BLANK, PLUS, 0!NUS,R I 6HT, FQU UCLA2390 
CO m 1PF'/A/A ( 80) UCLA2400 

Of 1 <= 1 , 30 UCLA2410 


J = X- 1 
q =A(K) 

1F<A{’<) .EO. LEFT) RETURN 
IF < A ( •*" > .E n * s LA5t~) RETURN 
IF( 4(0 .CO* HI MU? )RA TURN 
IF t A (i< > ,ES. s KHT \R f TIJP\ 

IF(AtK>*E<^. FOU 1 RJITU^M 

1 IF(A(H) .EO.^LA-'K'IRFTUKM 

RFTij^N 
Fh~> 

Sl'-VOUTINF n SC AA (3, I, J) 

CpO-.rx/A/ACSO) 

C u.F.OKPENT J.C.L.A, lg 6 7 

Cf -! 3Vo at A/c , H I , A^9o ( 7 ) , A V, FMCUjl 3 ) , 9, P, 8 m9d < ? ) , BLANK, CMPrjI 4 ) , 

DCK=I ,3C 
J = K~1 
9=A{ , 1 

TF(A(K) .Fr-.U)R2 T 'JP‘ 


JCLA2420 
UCLA2430 
'JCLA2440 
UCLA2450 
UCLA2460 
UCLA2470 
UCLA2480 
UCLA2490 
JCLA2500 
UCLA2510 
UCLA2520 
UCLA2530 
UCLA2540 
UCLA2= 50 
UCLA2560 
'JCLA2570 
UCLA2580 
>JCLA?590 
UCLA2600 


A -5 




1 


c 


1 


c 


1 


c 

200 


C 


JF(A(K) . EQ.RL A' 'K) RETURN 
IF’(A( |/ ’)»E'w»AM) RFTUPN 

irt \(K) . re . akj return 
I F ( A ( K> »£0 «P )RETL’R\i 
I F ( A (tO .EQ«0)P£ TUP , 

I F ( A(K> . EG* AV) RETURN 
IF(A(K) .EO.AIJ^tUPK 

RFTU^N ' v 
END 

SU'JpeUTlrvE CSCAN (B, I , J) 

H >F *0KR£NT J.C.L.A. 1967 

C0NN0N/A/A(8O) 
p£AL LEFT, MINUS 

CP’lMBN/DATA/C,AI,A'l8D(2),E,9MB D (8),8,CM9Dt2),pVT,BLANK,PLUS,MtMUS 

D01X 1 1 SO 

J=K-1 

n=A(X) 

IF(A(K).EQ.PnT)PETuRN 
IF C A t K ) .£n*E )RET!JR J 
if ( a <k j • eq • plus j return 
IF ( A(K) .ECHINUS) RETURN! 

IF(A(K) . eg. blank 1RETURN 

RrT’j";K 

FfO 

FUNCTI0N _ IS9RT ( A I~ ’ ~ 

H.F-9KRENT U.C.L.A. 19 6 7 

INTEGER flag - - 

CeM'ON/FLAG/FLAG 
CeM'ipN/K/B{10) “ — 

FLAG=0 

oeii=i,id 

ISORTal-l 

IF{A.E0.8{I))RETURnj ' ■ 


UCLA2610 
UCL A2620 
UCLA2630 
UCLA2640 
UCLA2650 
SJCLA2660 
’JCLA2670 
U r LA2680 
'JCLA2690 
UCLA2700 
UCLA2710 
UCLA2720 
UCLA2730 
UCLA2740 
UFLA2750 
UCLA2760 
UCLA2770 
UCLA27S0 
UCLA2790 
UCLA2800 
UCLA2810 
UCLA2820 
UCLA2830 
UCLA2840 
UCLA2850 
UCLA2860 
'JCLA2870 
UCLA2880 
UCLA?890 
UCLA2900 
UCLA291 0 
UCLA2920 
UCLA2930 


IS0RT=O 

Flag*1 

retu> 

END 

SU»R0UTIME MSG(A, I) 

H.E.9KRENT U*C*L.A* 1967 

WRITE ( 6, 2001 I, A 

ESR^ATf 1CX, ***** CHARACTER', 13, ' WAS EXPECTED TB BE A ',A2, 

1 IGNORED. ') 

RETURN ~~ 

END 

SU9R9UTINE NUMBER ( Ml, N2 ) 

H.E.9KRENT U*C*L.A* 1967 

CS^M^N/A/A ( 80 ) 

CeN.MpN/DATA/AMaD(4!,E,BM0D(ll),pNT,BLANK/PLUs7MINUS,RIGHT,EQU 
REAL P INIJS 

INTEGER TA3,FLAG,E<Pe,P8W 
csnn' n/flag/flag 
CpMM c » , '/ClRClT/Ci v nD[g02l,NE 

C e ^M : ,N/PATHs/LPATH ( 300,2),VPATW(300),s(300),NPATH 


UCLA2940 

UCLA2950 

UCLA2960 

UCLA2970 

UCLA2980 

UCLA2990 

UCLA3000 

CARDUCLA3010 

UCLA3020 

UCLA3030 

UCLA3040 

UCLA3050 

UCLA3060 

UCLA3070 

UCLA3080 

UCLA3090 

UCLA3100 

UCLA3110 

UCLA3120 

UCLA3130 


A -6 



4 


200 


1 


C 


c 


c 


3 


C 


a 


c 


7 

8 
6 

C 


201 

9 


(■'iMl 1 

TAG=0' 

VRATHCNE ) =0* 

PP'lsG 

IF(<«LE.N'2)G0 TO 1 
lF(vPATH(NEI.LT.l.p-30)VPATH(NE)- 
IF(T*G.E3.1)VPAT4( iE)=-VPATH(NE) 
WRITE<6.200 >K,VPaTh(NE> 


UCLA31A0 
UCLA3150 
UCLA3160 
UCLA3170 
UCLA3180 

1*0 UCLA3190 

UCLA3200 
UCLA3210 

<**** value cannot be completely determined dueucla322o 
CHARACTERS I3/10XD***« VALUE assumed TO BESE16.8UCLA3230 

UCLA3240 


BLANK 


i»o 


FORMAT { 1GX. 

1 T0 an ERROR IN 
1) 

RETURN 
I iK 

check FOR + 0R . SIGNS 

IFtAt I) •E3 « v 'INUS)TAG = 1 

I F ( ( t < I ) . E 3 . M I n I ) . e R . ( A ( I ) , eq , PLUS ) ) I s J :* 1 

SCAN FOR +, * , Ej »» 

CALL CSCAN(B,I,J) 

IF( J.GT.N£)J=N? “ . 

IF < J.LT • I ) G0 TO 2 

insert numbers greater than 

D03KD' J 

VPAtH(NE)*VPATH(NE)+(S 0RT(A(K) )*<10.**(J»Kn ) 
IF(FLAG.EQ*1)G0 to 4 
CONTINUE 

check for the end of the 

IF(J,GE.N2)G0 TO 5 

HANDLE NUMBERS LESS THAN 1*0 
IF CR.NE.PNT >G6 T9 a 
I=>J+? 

call cscan!B,i,j> 

IF ( J.GT.Ng ) J=NH 
IFIJ.LT. I)G6 TO S 
00 7. =1. J 

VFATHp'E ) =VPATH( M E)+(SORT(A(K) )*{10.**CI-K« 

IF (plAG.EO* i ) G6 T9 ii 
C0'IT[NUE 

I F ( j >G r * Ng ) G0 TP 9 
IF(R.EO.E) J'J+l 

EVALUATE THE EXPONENT 
EXP0=O 

IF(A[J+1 ) .EQ.MI\‘US)txP6 = l 

IF( (A( J+1) .NE.PLUS) .and. ( AIJ+D.NE. MINUS) )J 
I=J+2 

CALL B c CAN I / K ) 

IF ( K .GT • \ P ) K = N 2 


NUMBER FIELD 


IFCK-I.LE.DGP T9 
WRITE (6^201) 

fsrmatcicx^ '»*** exponents with m0re than 2 
1 . 9*.L y the LAST 2 WILL BE USED, < ) 

I=K-7 

PO SISPRTC A(K) ) 

IFCFLAG.ES. UGO T9 a 


UCLA3250 
UCLA3260 
UCLA3270 
UCLA3280 
UCLA3290 
UCLA3300 
UCLA3310 
UCLA3320 
UCLA3330 
'JCLA3340 
UCLA3350 
UCLA3360 
UCLA3370 
UCLA3380 
UCLA3390 
UCLA3400 
UCLA3410 
UCLA3420 
'ICLA3430 
UCLA3440 
UCLA3450 
UCLA3460 
UCLA3470 
UCLA3480 
JCLA3A90 
UCLA3500 
UCLA3510 
IJCLA3520 
UCLA3530 
UCLA3540 
UCLA3550 
UCLA3560 
UCLA3570 
UCLA3580 
UCLA3590 
UCLA3600 
UCLA3610 

DIGITS are WOT ALLOWEDUCLA3620 

'JCLA3630 

UCLA3640 

UCLA3650 

UCLA3660 


1 ) ) ) 


J-l 


A -7 




If ( «. •E’"' • I ) "j& TJ 10 

UCLA3670 


K=I 

UCLA3680 


Pp -; = ?<=" + ( 1C* I? ('(O) ) 

UCLA3690 


IF(Ft AG.FC.l >0” TO 4 

UCLA3700 

in 

IF ( 7 aP” «fft«l)P'N = 

UCLA3710 


VPAtH [ k E ) = V p AT ^ E ) * (10.**P8 aI) 

UCLA3720 

5 

IFITtG.ES.I 5 VPAT-H ,F)=-VPATH(N'E) 

UCLA3730 


R£T JFN 

UCLA37A0 


ENO 

UCLA3750 


qu'iPOUTiNf shift (A) 

UCLA3760 


,).F.»KFEM U.C.L.A. 1967 

UCLA3770 


OI''fnSI‘»\ A ( 8C ) 

UCLA3780 


N/Oata/aPOOI l7)/8LANK/3Nec(7l/C9MHA 

UCLA3790 


<=0 

UCLA3800 


0011 = 1/80 

UCLA3810 


J=I-K 

UCLA3820 


A ( J ) =A ( I ) 

UCLA3830 


IF(A( ! > .F0.8LA‘‘'< )< = (/+ 1 

UCLA38A0 

1 

I F < A ( 1 > .FO-COr-V )K = K + 1 

UCLA3850 


IF(f'-F'). 0)^ = 1 

UCLA 386 O 


A{Si-i<)=BLA\ ! < 

UCLA3870 


P E TJ 

UCLA3880 


EN3 

UCLA3890 


FUNCTION 5 nf ?T(A) 

UCLA3900 


H.F.9KRENT U.C.L.A. 1967~ 

UCLA3910 


S0Rt=IS9Pt( A) 

UCLA3920 


RETUof'' 

UCLA3930 


END 

UCLA3940 


subroutine v ASAP 

UCLA3950 


H, c . AREN'T U.C.L.A* 1960 

UCLA3960 


IvTfGEP TY d E/GCnER 

UCLA3970 


INTEGER FLAG/FRP/B MGIiI/TAPGET 

UCLA398Q 


COH'/,fiM/PaTHS/IPATH(300j2)/VPATH(300)#S(300)/FREG 

UCLA3990 


CpM'/cFVA/A (?0) 

UCLA4000 


CON'/ON/C I pC I T/CARD t SC/ 12)/TYPE(50 )/GENEr150)/9pIGIN{50)/T ARGFT (SO)UCLA4010 


l, H°UT/OUT p GT, M E<S AX/S^IN 

UCLA4020 


Co Mw oA /OAT A/C/ A I / A .fD(P) ,E/3Heo( A)/AV/FN9D(3)/6/P/CP90(2)/ 

UCLA4030 


IRLA.^Kz 

UCLA4040 


10K9o(4) / AP/M/ AK/EMOD(A)/U 

UCLA4050 


C0'1\9N/FLAG/FLAC 

UCLA4060 


CQ.I' ^N/EKR/ERR 

UCLA4070 


C6 M Hr.N/3 1 T87N ( 30 OO ) / DEP ( 80/ 1 3 > / NN8DES/ I NODE 

UCLA 4 O 8 O 


\i£ = 0 

UCLA4090 

18 

RFAD(5/10C)A 

UCLA4100 


WR I TE { 6/ ECO) A 

UCLA4110 

loo 

FOR.-'aT (80*1) 

UCLA4120 

200 

FeR*'\T(lX/80Al) 

UCLA4 130 


1 = 1 

UCLA4140 

2 

call asCan<B/I/j) 

UCLA4150 


IF(J. K F«I-l)3 n TO ! 

UCLA4160 


I = J+2 

UCLA4170 


IF ( I «CT . 72)69 TO 6 

UCLA4180 


SO T9 ? 

UCLA4190 


A -8 



I IFtAt I ).£GtE >69 T 9 17 
IF C A ( I )«E 08 )GF* T 9 17 
N£=> r + l 

0a3,<=l^l2 

i=r+K>i 

CARO(NFj K ) = A t L ) 

IF tl.“GT» J) CARD (NE j < ) =SLANK v ’ 

3 CONTINUE 
I = J + ? 

4 call A 3 Cau<Ej l> J) 

IF { j.NE.I-UGP Tf 3 
I*J+2 

IF! I ,GT. 72 )GQ TG 6 
GO T 8 4 

5 ofigjMMf) *IS 0 RT(A(J>> 

IF(FUA 6 .EQ- 1 )S 0 t 9 6 

IF! J.NE. I )9RlGIMNE)=dRlGIN<NE) + (ISeRT (At I ) )*JO) 
IF!FUAG.E0-1)G9 T9 6 
1= j + 5 

8 CALL ASCaN<B>I;J) 

IF { J.NE.I-DS 8 T 9 7 
I * J+2 

IF ( I «GT* 72 )G 6 TP 6 
GO TO X 

7 TargET(Me)iIS6rT(A(J)) — 

IF ( FLAG»E 0 • 1 ) GS T 9 6 

IFU.NE. 1 )TARGFT(NF)=TARGET(ME) + ( ISBRTUU ) )*iO> 
IFtFLAG.EQ.DG9 tQ 6 
I * J+2 

lo call bscamis^ i, j> 

IpCj,WF«j-j)Gp T 9 9 
IF f I »GT* 72 ) GQ T 9 6 

I =vl+2 

GO TO 10 

9 K= 7 ? 

call number u,j> 

14 IF (S*E 0 « BLANK) Gg Tft 11 

IF(S.E9.U)VPATH(N£)cVPaTH(NE)*1.E-6 
TF( 3 .E 3 .P>VPATH(N!E)*VPATH(NC)*l.E-i 2 
IF ( 0 f Ef 3 1 AX ) VPATH ( N? ) =VPATH ( ME) * 1 • E 3 

If ( ( 5 »ET • am > • A.No » ( a ( J+2 ) • NE • H ) j VPATH (ME ) * VPATH (NE ) *1 « E6 
IF< (b.CO.AM) .AND - (A | J+2) .EQ.H) ) V PATH (ME ) = V PATP rN'E ) *1 «E-3 

II I=J + ^ 

IF( (B-EG.AV) . 9 R. tB.EG.Al) )GB Ta 16 
IF < I »GT* 7 S ) GS T 9 ig 
13 CALL BSC an { 3 .» I .» J ) 

G9 79 1* 

16 CALL ASCaN<B,I,K> 

I cK +2 

1 F(B*E 3 .BLA k K)GP T 9 12 
IFU.GT.72>G8 TS 12 

go re 16 

12 96191 = 1^13 


UCLA4200 
UCLA^SIO 
UCLA4220 
UCLA4230 
UCLA4240 
UCLA42S0 
UCU4260 
UCUA4270 
UCLA4280 
UCLA4290 
UCLA4300 
UCUA4310 
UCLA4320 
UCLA4330 
1/CLA4340 
UCLA4350 
UCLA4360 
UCLA4370 
UCLA4380 
UCIA*390 
UCLA4400 
UCLA441 0 
UCLA4420 
UCLA4430 
VClAitk^O 
UCLA4450 
UCLA4460 
UCLA447O 
UCLA4480 
UCLA4490 
yCL A4500 
UCLA4510 
UCLA4520 
UCLA4530 
UCLA4540 
UCLA455O 
UCLA4560 
UCLA4570 
UCLA4580 
UCLA4590 
UCLA4600 
UCLA4610 
UCLA4620 
UCLA463P 
UCLA4640 
UCLA46S0 
UCLA466O 
UCLA4670 
UCLA4680 
L/CLA4690 
UCLA4700 
UCLA4710 
UCLA4720 


A -9 



L=I+J UCLA4730 

DE p (i E, I )=A(L> UCLA4740 

IF ( L *GT *K) DEP ( NE-< I ) = BLANK UCLA4750 

15 CONTINUE UCLA4760 

GEMEF<(NE)=0 UCLA4770 


TYPE(N‘E)=0 UCLAA780 
IF ( (<-AR9{NEVn .EG. V}.0R,(CARD(NE>1).EG,AI ) )GENER(NE)*1 UCUA4790 
lF(CARD(ME>l).EQ.i }TYP£(NE)=1 UCLA4800 
NN90ES = '1Ax0<NN6DE » TARGET (NE )/ ORIGIN(NE) ) UCLA48IO 
INODF=NINo( IN6DF . -aRGET(NE)/9RIGIN(NE) > UCLA4820 



GO T0 18 

UCLA4830 

17 

P032I *IN0pE/NN6|)r - 

UCUA4840 

32 

n<u;o 

UCLA4850 


DO 19 1 «1*NE 

UCLA4860 


JsORJGIN ( I ) 

UCLA4870 


'J(J)»N(J) + i 

UCLA4880 


J = TAl;GET ( I ) 

UCLA4890 

19 

N(J)=M J) + l 

UCLA4900 


J=0 

UCLA4910 


00201 'I^'eDE^NN'' <- s 

UCLA4920 

20 

Jz^AXCt J>N< I > ) 

UCLA4930 

28 

DP2l I* INODE*Nt CS 

UCL.A4940 


iFIJ.EQ.Nd ) K TO 22 

UCLA4950 

21 

CONTINUE 

UCLA4960 

22 

m< i ) ;o 

UCLA4970 


M-0 

UCLA4980 


D023J*1>.\E 

UCLA4990 


IF {GEMER(J)*TYPE(J),EQ. 0 >GS TO 23 

UCLA5000 


kz 0 rigi\'( jj ' 

UCLA5010 


L=TARGET(J) 

UCLA5020 


IF(m;K).GT.0)G8 TO 36 ' ” 

UCUA5030 


IFIN(L) .GT*C)M=1 

UCLA5040 


N(U=-IABS(N(L) ) 

UCLA5050 

36 

IF(N(D*GT.O)G0 T0 23 

UCLA5060 


IF(V(K) .GT.0)P,=1 

UCLA5070 


M(K)=-IABS(MK)) 

UCLA5080 

23 

continue 

UCLA5090 


IF ( N *EG • 1 ) GO TO 22 

UCLA5100 


0026 J= 1 > NE 

UCLA5110 


IF(GtNER(J)+TYPE( J).NE.O)G0 TO 26 

UCLA5120 


K=0RIGIN{ j) 

UCLA5130 


L=TaRGET(J) 

UCLA5140 


IFIK.NE, nse TO 27 ' 

UCUA5150 


IF (N(t) «LE«0)G9 TO 27 

UCLA5160 


N(L ) =-^ l ( L ) 

UCLA5I7O 


G0 T<-| 34 

UCLA5180 

27 

IF(L*NE.I)GO TO 26 

UCLA5190 


IF(M(K).LE«0)GO TO 26 

UCLA5200 


N ( K ) a"N IK ) ' 

UCLA52IO 

34 

TYPE! J>=1 

UCLA5220 

37 

0 = 0 

UCLAS230 


D03lJl=l/NE 

UCLA5240 


IF(TYPE(J1)+GENER(J1).NE.2)G0 TO 31 

UCLA5250 


A -10 



O o o o 


33 


31 

26 

33 

2 ° 


24 

26 

6 

201 

3 o 


v =SR 16 JN { J l ) 

L = TapGFT( J l ) 

tF<M<*>*\<LnrT.o>3e to 31 

I F ( n ( K ) • 3E » 0 ) GO TS 33 
T F C (L).3T.Cl^ = l 
*J ( l_ > = — X ARS ( \ t L ) > 
lFr'(L)«C>E*0>Gn TO 31 
IF<mK) .oT.0)M=1 
M< << 1 =- 1 A-,*5 ( N{ K > ) 

C0'1T>UF 

continue 

1329 I s ! NN9DES 
J= -■ I NC ( J* N ( I ) ) 

IF(J»E3.0)v f i T3 30 

IFtJ.LT. -1000)GH T n 28 

oogc r = t\onr<i. f [ a i 2 s 

IF ( f (D.LT.Of < I ) =\( I ) «1D00 

CONTINUE 

fjf> T c < ?3 

4 F I T 2 ( 6 * 201 >J 

Fp^'A T C INPUT CODING ERROR 

ERR = 1 

RETURN 

CM) 

SUlFeUTJNr SEN3IT 


3 . C3AV0I U*C.L*A. 1969 
PFSCESSFS SENSITIVITY REQUESTS 


near column ' , i 3 ) 


106 


INTEGER TA3>SENS 
DIMENSION SMIN(P) ,3MAX(2) 

C«MMfK/A/A< 50) 

COMMON/C IRC IT/CARo (50# 12 ) * TYPE (50 ) * GENER (50), OR I SIN< 50 ) , 
*TAR(3fT (50) > I’-'PUT * 9UTPUT/NE,SMAX,SMlN 
rc.M ifN/DATA/AI- ir(4)*E*3M9D(6)* AS * CMOD ( 3 > * ANI* DMf)D, BLANK* EMOD < 3 
Of Mm?N/ jAG/TAG ( 20 ) , NSENj SENS ( 50 ) 

CCMv^M/3 I TS/LOITS ( IGOO ) * ")EP (30*13)/ NNOdES* INSe^E 
OATA LI"IT/?0/ 

INITIAL IZE 
NE1= ~ 

vJOlTf (6*106) A 
F<;3 *«T { ' 1 t * °GA J ) 

"o T r 1 

is not sensitivity card* return 


IF ''EXT ca^o 
p Rr/s * 1 OC' A 
IPO Ff 3*1 Tf * JA 1 ) 

Call Sf IFT(') 
iP( ( A(i).\r.ASi 
* ?E t ‘J' n 
1 FIT - (c^go^A 
?PC o<"< , T ( < ” , to t l ) 

c.o A 1 fop EoijaeS 


SR. ( A(g) .NE.E) .OR* ( A(3 ) . n E*AN) ,OR. ( A ( 4 ) «Nf • AS ) ) 


9IP,N AFTER SEN c 


UCLA5260 
UCLA5270 
‘JCLA5280 
UCLA5290 
UCLA5300 
UCLAS310 
UCLA5320 
UCLA5330 
UCLA5340 
UCLA5350 
UCLA5360 
UCLA5370 
UCLA5380 
UCLA5390 
UCLA5400 
UCLA5410 
UCLA5420 
UCLA5430 
UCLA5440 
UCLA5450 
UCLA5460 
UCLA5470 
UCLA5480 
UCLA5490 
UCLA5500 
UCLA5510 
UCLA5520 
UCLA5530 
UCLA5540 
UCLAS550 
UCLA5560 
UCLA5570 
UCLA5580 
UCLA5590 
UCLA5600 
)*EQUUCLA5610 
UCLA5620 
UCLA5630 
JCLASA40 
UCLA5650 
UCLA5660 
UCLA5670 
UCLA5680 
UCLA5690 
UCLA5700 
UCLA5710 
UCLAS720 
UCLA5730 
■JCLA5740 
UCLA5750 
UCLA5760 
1CLA5770 
'JCLA5780 


A-ll 



o o no 


1 CALL ASCaNIB. U J) 

IF (B.FQ.FOUjGO T0 3 

wpitf(a.ig2> 

102 FpRMAT </10X. '***» EQUALS sign nbt FOUND— REQUEST ignored, 1 

GO T0 2 

c find circuit element 

3 K=J+? 

L»K+11 

Dp 4 I=1.NE 

DO 5 I 1=K.L 

I2=U-J-1 

IF { A( II ) .NE.CARD ( I . 12 ) )G0 TO 4 
5 CONTINUE 

C CHECK FOR invalid ELEMENT (INDEPENDENT SOURCE) 

IF(GENER<I)»EG.0>G9 TO 9 
IF<QE p U.l)«NE.8LANK)G0 T0 9 
WR I TE ( 6. 105 1 

105 FgRfiAT ( /10X. ***** J^VALID ELEMENT TYPE— REQUEST IGnoRED.’' 
GO TO 2 

c check for tor many requests 

9 NElttNEl+1 

IF(NEl«LE.LlMJT>GO T0 10 
Wr ItE ( 6j loll " 

101 FORMAT ( / 1C X#»»*** TOO MANY SENSITIVITY REQUESTS- -REQUEST I 
*')"■" 

G0 TO 2 

C CHECK FOR DUPLICATE REQUESTS 

10 IF(SE N S( I) .EQ,O)G0 TO 11 
WPITEI6. 104) 

104 F9RMAT(/10Xi ***** DUPLICATE REQUEST-, REQUEST IGNORED.') 

GO TO 2 

C INSERT SENSITIVITY TAGS 

11 n$en=nsfn+i 
SrNst I )=TAG(NSEN) 

G0 TO 2 

4 CONTINUE 

C ELEMENT not FOUND IN CIRCUIT ' 

WRITE(6» 103) 

103 FORMAT </10X, <**#* SENSITIVITY REQUEST F0R UNKNOWN ELEMENT- 
«T IGNORED. ') 

Sq TO 2 
END 

SUBROUTINE Worst ' 

s* GRANDI U.C.L.A. 1969 
PROCESSES WORST CASE REQUESTS 

INTEGER TAG. SENS 

dimension sminc2T7rmax(2) 
common/ a/ a < so ) 

COMmOr/C IRC IT/CARD (50. 12 ) » TYPE ( 50 ) . GEn^R < 50 ) .9RI Gl N < 50>. 

"Target ( sc ) . i nput . output. ne 
C0MM0N/GAG/TAG(2o>.NSEN,SENS(5o) 


UCLA5790 
UCLA5800 
UCLA5810 
) UCLA5820 

UCLA5830 
UCLA5840 
UCLA5850 
UCLA5860 
UCLA5870 
UCLA5880 
UCLA5890 
UCLA5900 
UCLA5910 
UCLA5920 
UCLA5930 
UCLA5940 
UCLA5950 
UCLA5960 
UCLA5970 
UCLA5980 
UCLA5990 
UCLA6000 
UCLA6010 
SNORED. UCLA6020 
UCLA6030 
UCLA6040 
UCLA6050 
UCLA6060 
UCLA6070 
UCLA6080 
UCLA609D 
UCLA6100 
UCLA6110 
UCLA6120 
' UCLA6130 
UCLA6140 
- UCLA6150 
UCLA6160 
-RF~UESUCLA6170 
UCLA6180 
~ UCLA6190 
UCLA6200 
" UCLA6210 
UCLA6220 
UCLA6230 
UCLA6240 
UCLA6250 
UCLA6260 
UCLA6270 
UCLA6280 
UCLA6290 
UCLA6300 
UCLA6310 
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CBMM0N/HITS/LBITS(3OOO)#DEP(5O/13) 

C 0 MMflN/VieRSTl/MkeRsT.,VW< 101,2>,T6L(50) 

C0MMeN/DATA/AM0O(B) J »R>AL/E^BM6[)(6)^S/T^ 0^CM9D7AN/FMSD>BtANK> 
*DM0D,'3)*EQU>EM0D(9)jW 
C0 f 1H0N/PATHS/LPATH(6OO)/VPATH(3OO) 

DATA LIMJT/ao/ 

C INITIALIZE 

NFUG=0 
WRITE ( 6 * 100) A 

100 FgRMAT ( • 1 < j 80A1 ) 

C INSERT sensitivity tags for all valid elements 

Op 1 UIjNE 

IF(GENER(I > •EO«O)G0 T0 2 
IF ( DFP ( I » 1 ) • NE* BLA\K )G0 T0 2 
GO TO 1 

2 NSEN=NSEN+1 
IF(NSEN.GT*LIMIT)GP T0 3 
SENsd >=TAG(NSEN) 

1 CeNTrNUE 
NW3RST=1 
G 0 T0 11 

C T00 MANY ELEMENTS 

3 NSEN=NSEN-1 
WR I Tp ( 6 -» 101 ) 

101 FqRMAT(/10X/ '*»** T00 MAkjY ELEMENTS FeR A Worst CASE ANALYSIS 
*UEST IGNQREOi) 

NFLaG=1 
GO T0 10 

c set all tolerances ts .1 default 

11 DO A I * 1 # N'E 

A TOL (I ) = • 1 

C RFAL tolerance cards 

10 READ t 5 j 103 ) A 
103 FgR -1AT (80A 1 ) 

call shift(A) 

C IF CARD N 6 T TOLERANCE, RETURN 

IF((A<1).NE.T).0R.(A(2).NE.8).0R.(A(3).NE.AL> jGO TO 12 
WRITE 1 6 i 113) A 
113 FqR!-iaT( ' IjSOAI) 

I F< NFL AG. EG* 1 )G0 TO 10 
C CHECK F0R EQUALS SIGN 

CALL ASCaN(S^IjJ) 

IF(B*EO.E0U)GP T-> 3 
C BAD CARD 

7 WRITE ( 6 * 102) 

102 F 6 RKAT(/iqX, t***» ERROR IN TOLERANCE CARD-. IGNORED I ) 

GO TO 10 

5 K=J+2 

C OBTAIN "CTRCUIT ELEMENT 

CALL ASCAN< 8 ,K,J, 

IF( J.EO.K-15G0 TO 7 
IF(B.NF.E3U)G0 TS 7 

6 L=J-K+1 


UCLA6320 

UCLA6330 

UCLA6340 

UCLA6350 

UCLA6360 

UCLA6370 

UCLA6380 

UCLA6390 

UCLA6400 

UCLA6410 

UCLA6420 

UCLA6430 

UCLA6440 

UCLA6450 

UCLA6460 

UCLA6470 

UCLA6480 

UCLA6490 

UCLA6500 

UCLA6510 

UCLA6520 

UCLA6530 

UCLA6540 

UCLA&550 

-REQUCLA6560 

UCLA6570 

UCLA6580 

UCLA6590 

UCLA6600 

UCLA6610 

UCLA6620 

UCLA6630 

UCLA6640 

UCLA6650 

UCLA6660 

UCLA6670 

UCLA6680 

UCLA6690 

UCLA6700 

UCLA6710 

UCLA6720 

UCLA6730 

UCLA6740 

UCLA6750 

UCLA6760 

UCLA6770 

UCLA6780 

UCLA6790 

UCLA6S00 

UCLA6810 

UCLA6820 

UCLA6830 

UCLA6840 
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no 


IP( L .6T.i?)L=12 

UCLA6850 

NtUNE 

UCLA6860 

DO fc I=1/NE1 

UCLA6870 

0? 9 1 1 = 1 / L 

UCLA6880 

IIUII+K-i 

UCLA6890 

iFJCARDuwn.Mf.AdiinGe to g 

UCLA6900 

9 CONTINUE 

UCLA6910 

OBTAIN TOLERANCE value 

UCLA6920 

SF=M(7+1 

UCLA6930 

MrJ+? 

UCLA6940 

CALL ASCAnIB/N/ v) 

UCLA6950 

call number <m.,N) 

UCLA6960 

TOL( I )=VPATU(NE) 

UCLA6970 

NE=NF"1 

JCLA6980 

GO TO 10 

UCLA6990 

8 continue 

UCLA7000 

GO TO 7 

UCLA7010 

WrITE tolerance TABLE 

UCLA7020 

12 if O' flag .eg* i ) Return 

UCLA7030 

WRITE ( 6* 120 ! 

UCLA70<tO 

120 FORMAT!//' ELEMENT NAME MOXi * TOLERANCE '/ ) 

UCLA7050 

DO 13 I*1/NE 

UCLA7060 

IF«SENS!I).EQ.0)69 TO 13 

UCLA7O70 

WRITE! A, 121) (CARD! !/J)/J=l/12)/T0L( I ) 

UCLA7080 

121 F0RmaT(1X>12A1/UX,F7*4) 

UCLA7090 

13 CONTINUE 

UCLA7100 

return 

UCLA7110 

END 

UCLA7120 

subroutine r EAD 

UCLA7130 

H.E.OKPENT U*C*L.A* 1967 

UCLA71A0 

analyses free field circuit description 

cards ucla715o 

C0MM9N/TREE/TREE 

UCLA7160 

integer tree 

UCLA7170 

Integer typE/GEnEr 

UCLA7180 

INTEGER eRIGIN/TARGET 

UCLA7190 

INTEGER TAG/EPR/FL4G/0UTPUT 

UCLA7200 

rfal left, minus 

UCLA7210 

COMM0N/DATA/C,AI,R,AL/£i AJ/D/SLASH,LEFT,A V ,F, as,T/9,P/AN 

z PNT /BLANKUCLA7220 

1/ PLUS /MINUS/ R IGHT/EQU/ AM,H/ AK/ comma# y> a a 

UCLA7230 

CrMMoN/A/AISO) 

UCLA7240 

COMMON/TAG/TAG 

* UCLA7250 

CoUMfiN/ERR/ERR 

UCLA7260 

COMMRN/X/AC 110) 

UCLA7270 

CfiMMcN/FLAG/FLAG 

UCLA7280 

C0MMCN/ s iTS/LflOP(3DOO)^DEP{5O>l3)iNN9DES-< INODE 

UCLA7290 

CPMM0N/CIRCIT/CARD(50/12)/TYPE(50)/GENER(50) , ORIGIN (50)/ 

T ARGET ( 5 UCLA7300 

10)/ INPUT, OUTPUT, NF,SMAX<SMIN 

UCLA7310 

COMfiON/P ATmS/LPATh( 300/2)/ VPATh (300 ),S( 300 )/FrEO 

UCLA7320 

N£ = 0 

UCLA7330 

►!R = 0 

UCLA7340 

ERR=0 

UCLA7350 

I N D UT = 0 

UCLA7360 

OUTPUT = C 

UCLA7370 
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TAG = 0 

UCLA7380 


IF (TREE. tQ .004 T9 2 

UCLA7390 

43 

tree=i 

UCLA7400 


c^TRACT CIRCUIT FREQUENCY 

UCLA7410 


FFE3=1*0 

UCLA7420 


CALL A?CAM(3, 3,1) 

UCLA7430 


IP ( 3 *E0* 3L*‘* K ) GO To 2 

'JCLA7440 


I F ( 3 » EG • LEFT ) GO T9 49 

UCLA7450 


CALL u SG(LEET, I+i) 

UCLA7460 


V&ItE < fit 2?4 IFRiIQ 

UCLA7470 

224 

F9R‘.AT(10X< ***** FLUENCY ASSyMED T9 BE »,El6.8) 

UCLA7480 


3° T9 2 

UCLA7490 

49 

1 = 1+2 

UCLA7500 


C/LL ARC AM ( S, I,J) 

UCLA7510 

51 

IP( (B.l'E.EGb) .Af. L ,. {(=.NE"MInUS) )G0 T a 52 

UCLA7520 


CALL ASCaMB, j+?, j) 

UCLA7530 


30 TP 51 

UCLA7540 

5? 

I F < 3 - LE • P iRt'T ) CALL MSG (RIGHT, J+l ) 

UCLA7550 


NP=1 

UCLA7560 


CALL NUMBER! I, J) 

UCLA7570 


FRFQ=VPATH( m E) 

UCLA7580 

2 

NP = 0 

UCLA7590 



UCLA7600 


3E6IM CIRCUIT DATA ANALYSIS 

UCLA7610 

U 

READ ( 5, lcn) A 

UCLA7620 


v'fITE(A,200)A 

UCLA7630 

loo 

Ff R 1AT ( 80A 1 ) 

UCLA7640 

200 

FeR.*Al(lX,?OAl ) 

UCLA7650 


call Sh1ft<a> 

UCLA7660 


IF ( A ( 1 ) *NE .BLANK )Go T9 44 

UCLA7670 


WPItE<0218) 

UCLA76S0 

215 

fcr *aT{ iox>’***» blank card is ignored.') 

UCLA7690 


gp re u 

UCLA7700 


JF ’END OF DAT A » IS ENCOUNTERED, END 

ANALYSIS UCLA7710 

44 

I F C ( / < 1) .ES»E) • a>'D, ( A (2) .EC. AN) .AND. (A (3) .EQ.D) > RETURN UCLA7720 


IF( (A(ll .NE»P) . p R. (A(2) .NE.AL) )G0 TO 50 

UCLA7730 


UR I TE 1 A, ?1 7 ) 

UCLA7740 

217 

FnR-iAT 1 1CX, '*#** PLOT CARD IGNORED.') 

UCLA7750 


GO TO 11 

UCLA7760 

50 

IF ( M F • LE • 4 Q ) GO T9 R3 

UCLA7770 


WRITE >221) 

UCLA7780 

221 

f t'RfiAT ( i ox, 1 * **+ n ire than so elements n 3t avowed. 

only the firsjucla7790 


1 EO VI LL BE USED. ' ) 

UCLA7800 

23 

DtP(AE+l, D=BLANK 

UCLA7810 


T YPr ( Rf + 3 ) =0 

UCLA7820 


GF >E (NE+D-0 

UCLA7830 


09451*1' 12 

UCLA7S40 


DE P (AE+1, I +1 ) =L LANK 

UCLA7850 

45 

C/ j - (► t +i , I ) = BLANK 

UCLA7860 


c_ec< Hrst letter For elment type 

UCLA7870 


IF ( (A ( 1 ) .EN*E) .PR. (A ( 1 ) .EQ.AJ) )G0 TO 4 

UCLA7880 


IP { ( / ( 1 ) .F^.R) .«R. { A 1 1) .EQ.AL) .OR. (A( 1 ) .EQ.C) .OR. C A ( 1 ) .EQ.D) > GPTOsUCL A7890 


IP < ( a ( 1 ) .EG.AV) .or. ( A( 1) ,EQ. AI ) )G9 TO 6 

UCLA 79 OO 
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220 


6 

2 03 


53 

223 


C 

4 


5 


204 


8 

7 

205 


9 


12 

206 


C 

lo 

13 

C 


IF(A(1 > .E0.P1G9 TO 53 
WRITE <6* 220) 

FORMAT { 10Xj 1 **** element type 

1ED. DEFAULT VALUE IS R.» ) 
A<1)=R 
00 TO 5 
WRITE <6* 203) 


UCLA7910 

UCLA7920 

(FIRST CHARACTER) CANNOT BE IDENTIF IUCLA7930 

UCLA7940 
UCLA7950 
UCLA7960 
UCLA7970 


FORMATdoXi '**** ELEMENT TYPE CANNOT BE IDENTIFIED. ■ 'END OF DATA iUCLA7980 

i' capo assumed to be missing. via*/ «ab0ve card becomes first outpuucla7990 

2T REQUEST.') UCLA8000 

TaO=1 uclasoio 

RETUPN UCLA8020 

WRITE <6.* 223) UCLA8030 

format ( icx. '«*** pl6t requests must follow thp corresponding outpuuclasoao 

it revest. '/ iox, ' plot request ignored and default plot assumeuclasOso 


2D. 1 ) 

GO TO 11 

IF ( A 1 1 ) •EQ.E)TYPE(iJE + 1) = 1 
GENER(NE + i ) = 1 
Gfi T c 7 

IF(A(1) .EG.D)GFNER(NE+1),1 
IF U<2> •FQ.EJGO TO 8 
IF(T-EF, £0.1)60 TO 7 
IFIAI2) *EG.AJ)G0 TO 7 
WRITE (6; 204) 

FORMAT I lex* 1 **** ELEMENT type cannot be 
ink. DEFAULT VALUE IS J(LINK).') 

A (?) a A J 
GO TO 7 
TYPE(NE+1)=1 
CALL ASCAN (8.1/1) 

IF U »GT. 12) WRITE {6, 205) <ACN)iN=i/12> 
F8RNAT(l 0 y, '***» ELEMENT NAME -JITH MORE 


UCLA8060 

UCLA8070 

UCLA8080 

UCLA8090 

UCLA8100 

UCLA8110 

UCLA8120 

UCLAS130 

UCLA8140 

UCLA8150 

UCLA8160 

IDENTIFIED AS BRANCH OR LIUCLA8170 

UCLA8180 

UCLA8190 

UCLA8200 

UCLA8210 

UCLA8220 

UCLA8230 

than Y2 CHARACTERS has BEEUCLA8240 


in truncated to utai) 

IF ( A D.EQ.DJGG TO 9 
IF ! B . ED . LEFT ) G6 TO 10 
CALL MSG<L£FT,I+1) 

GO TO 11 

de p <ne+i* deleft 

IF(9,EQ.SLASH)G9 to 10 
IF(B.EQ.LFFT)GO TO 12 
CALL MSG(SLASh. 1+1) 

GO T6 11 
Wp lTE( 6> 206 ) 

F?RMA T (10X/ '***♦ element has illegal DEPENDENCY 

IF DEPENDENT •') 

DEP(NE+1,1)=PNT 

INSERT NAMf in LIST AND PAD with 
IF ( I ,GT. 12)1=12 
0013J=1j I 
CARD<NE+1, J)=A( J) 

is KANE U-jIqUe 


UCLA8250 

UCLA8260 

UCLA8270 

UCLA8280 

UCLA8290 

UCLA8300 

UCLA8310 

UCLA8320 

UCLA8330 

UCLA8340 

UCLA8350 

. ASSUMFD TO BE SELUCLA8360 
UCLA8370 
UCLA83S0 

BLANKS UCLA8390 

UCLA8400 
UCLA8410 
UCLA8420 
UCLA8430 
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u 

is 

19 

207 

17 

16 

C 

21 

219 

15 

22 

24 

20 

C 

27 

208 

26 

29 

209 

28 


IF(NE»EQ.O)G0 Te 16 

DPl 7 vlM.SE 

061gl<eljl2 

IF'(CARD( J/K> .n£*CArD(NE+1>K) >G0 T6 17 

CONTINUE 

NR=\R+1 

IF(N>p.GT.10)EP9=1 

DBl9K = 3Ml 

CARD ( NC+1 . K ) =CS w Ma 

CARDfNE+l, 12)=AC'NR) 

WPI tE ( 6/ ?07 1 (CARD!NE+l.*K)>K=i> 12 I 


UCLA8440 

UCLA8450 

UCLA8460 

UCLA8470 

UCLA8480 

UCLA8490 

UCLA8500 

UCLA8510 

UCLA8520 

UCLA8530 

■UCLA8540 


Fq9MAT(10X * ***** DUPLICATE NAME ENCqUnTEREO. PROGRAM ASSIGNS THE NUCLA8550 


1A^E 1 , 12A1/10X* !+**■» WARN I NG-- RESULTS ARE UNRELIABLE.*) 
GB T8 16 
CONTINUE 

IF { A / 11 *NE'B)G3 T0 20 
IF<DEP(NE+1M) .F3.PNT)G0 TO 20 
INSERT DEPEMQc-NCY NAME 
1 = 1+2 

CALL ASCAN (Bj I » j) 

M=i 

IF(B*£9*LEFT)G0 T9 21 
CALL MSG(lEFT,J+1) 

Ge T0 u 

I F ( (A( I ).ER*AV).0R, (A(I)'EQ.AI ) )G0 T0 15 
IF(A(?>.E0.E)DEP(NE+1/1)=AV 
IF(A(2).EQ*AJ)0EP(\E+1j1)=AI 
write (6. 213 >DEP(NE+1/1) 


UCLA8560 

UCLA8570 

UCLA8580 

UCLA8590 

UCLA8600 

UCLA8610 

UCLA8620 

UCLA8630 

UCLA8640 

UCLA8650 

UCLA8660 

UCLA8670 

UCLA8680 

UCLA8690 

UCLA8700 

UCLA8710 


format ( iox> •**♦* dependency type (first Letter 0f dependency name)uclas72o 

I is ILLEGAL* PROGRAM ASSIGNS ',A1> UCLA8730 

M=2 UCLA8740 

IF(J"I+M.3T*13)J=lS+I”H UCLA8750 

D62?K=I/J UCLA8760 

N=<- i+M - UCLA8770 

DF.° ( jE+1 » n ) =A ( K ) UCLA8780 

I=J UCLA8790 

1=1+2 UCLA8800 

call ascanis, i. j> uclassio 

IF( J'LT.I >J=I UCLA8820 

EXTRACT 0RJGIV N0DE UCLA8830 

IF( J-I.LF.l )G8 TO ? 6 UCLA8840 

WRI TE ( 6-> 208 ) UCLA8850 

F0RMAT(1OX > ***** MORE THAN 99 N0DES n8T ALL8WED* CARD IGnBREDO UCLA8860 

G0 TP U UCLA8870 

0RlGlN(NE+l)=ISfiRT(A(J ) ) UCLA8880 

IF(FLAG.E0*1)G8 T0 29 UCLAg890 

I F ( J • NE • I )9RIGIn(nE+1> =SrIGIn(nE+ 1 )+(lO*IS0RT{A(I ) ) ) UCLA8900 

IF (FLAG«EQ* 0) GP T0 28 UCLA8910 

Upl Tp ( 6 / 2091 UCLA8920 

FORMAT < 10X. ’**»* ILLEGAL CHARACTER in ORIGIN NUMBER. CARD IGN0RED *UCLAs930 

II UCLA8940 

G0 TO 11 UCLA8950 

IFORlGIN(NE+l ) .NE.Q)G0 TO 46 UCLA8960 
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22 2 
46 


C 

25 


30 
211 

31 

47 

210 

212 


C 


C 


34 


35 


lip I TE (6* 222 ) ^ 

FpRmaT(1CX > ***** NQDE 0 NOT ALLOWED, 99 SUBSTITUTED. 
IRkHjG— RESULTS ARE UNRELIABLE. 1 ) 

0RIGIMNE+1)=99 

IF(8.EQ.MINUS)G6 TO 25 

call msg< minus* j+i > 

GB TO 11 

E TRACT TARGET NODE 
I * J+2 

CALL ASCAN(S*I*J> 

IFIJ.LT. I )J*I 
IFtj-I.GT.DGB T9 £7 
TARGET(NE+l)=ISeRTtA(J) ) 

IF (FLAG . EG » 1 > C9 T9 30 

IF( J.N£. I ) TARGET (Nr+1) ^TARGET ( NE+ 1 > + ( 1 0#IS8RT < A < I ) ) ) 

IF(FLAG.EO.0)G9 TO 31 

WRITE(6.2lD 

FBRMATt ICX* ***** ILLEGAL CHARACTER in TARGET NUMBER. 
1) 

GQ TO U 

IF(TARGET(NE+1) .NE.OIGB T9 47 
WRITE (fc;222> 

TARGET (NE+1)= 99 

IF ( 6 .NE. RIGHT) WRITE <6* 210) 

F6RmaT( 10Xj '***♦ MISSING RIGHT PARENTHESIS INSFRTED 
IF < (B.NE.EGU) .AND. (A( J+2) .NE.E'OU) ) WRI TE ( 6* 212 ) 
format ( iox * 1 ***** <i = ii Following right parenthesis i 
1HAS BEEN INSERTED BY PRQGRAM.'} 

I=J+' / 

IF(S. EO. BLANK) I=J+1 
IF(A( J+2) .ED.FOU) I = J+3 

CARD is M9Vj SUFFICIENTLY IN SRDgR 
NE=h£tl 

NN90FS 2 ■< AXO < 6P I G I N ( NE ) * TARGE T ( NE ) * NNeOES ) 

KJSOE =MJNO(SrIG I NINE)* TARGET (Ne )* IN90E) 

E TRACT NUMERICAL VALUE 
CALL BSCAN(8,I*J, 

call number ( i/Ji 

IF( (8.E0.BL AN K) .BR, (B.EO.AI ) .9R. (B.EQ.9) )G8 T9 33 
IF(9.NE.P)G9 T9 s4 
K=-12 

call units t 'ppm 

so tb 33 

IFIB-NE.AKIGB T0 35 
K=3 

call units( ' k < ) 

G8 TO 33 
B=A( J+2) 

IF<B,NE.F)S9 T9 36 
Kn-4 

CALL UNITS! 'ME') 

GO T6 33 


UCLA8970 
t/lOX, ***** WAUCLAS980 
UCLA8990 
UCLA9000 
UCLA9010 
UCLA9020 
UCLA9030 
UCLA9040 
UCLA9050 
UCLA9060 
UCLA9070 
UCLA9080 
UCLA9090 
UCLA9100 
UCLA9110 
UCLA9120 
UCLA9130 
CARD IGNSRED <UCLA9l40 
UCLA9150 
IJCLA9160 
UCLA9170 
UCLA9180 
UCLA9190 
UCLA9200 
BY PROGRAM.') UCLA9210 
UCLA3220 
S MISSING BUT UCLA9230 
UCLA9240 
UCLA9250 
UCLA9260 
UCLA9270 
UCLA9280 
UCLA9290 
UCLA9300 
UCLA9310 
UCLA9320 
UCLA9330 
UCLA9340 
UCLA9350 
UCLA9360 
UCLA9370 
UCLA9380 
UCLA9390 
UCLA9400 
UCLA9410 
UCLA9420 
UCLA9430 
UCLA9440 
UCLA9450 
UCLA9460 
UCLA9470 
UCLA9480 
UCLA9490 


fbr consideration 


A -18 



36 IF( (B.ME.eLANK).AND. (B.N e.AI ).AND. (B.ME.6) )G0 T0 32 
K = 6 

CALL Um'M'H* ) 

36 TC 33 

32 IF(t5.NC*h>Ge TS 37 

CALL UNITS! 'HH') 

3? T6 33 

37 I F ( p *NE • AM )GB T6 33 
R = A ( J + ~ ) 

IF(B.N’F.F)G9 T9 3g 
K=* 12 

CALL UNITS! 'MMF • ) 

Be TS 33 

38 IFfB.NE.HjGS T9 33 

K *"6 

CALL UNITS! ’MMHI ) 

33 VPATH(NE)=VPATH(NE)»(10»**K) 

Gp TS 11 

END 

SUBROUTINE UNITS(A) 

C H,F.9KRENT U.C.L.A. 1567 

WRITE (6* £00> A 

£00 FORMAT! IOXj UNITS ARE !>AA) 

RrT'j'jN 

FLO 

SL-riFSUTlNE V'HAT 

C H*P «9KR£NT U.C»L.A. 1967 

C DFCPDFS OUTPUT REQUESTS 

imtfgfr s 
INTfCER TYPE 
integer tag^err 

C0 m MoN/TAG/TAG 

C0M-^N/ERR/ERP 

CpMM0N/A/A(£O) 

C9MV0K-/OATPS/JSAVE(1£O1) 

Ce”M6N/CIRCIT/CARD(50A 1 2 ) , VN ( £o£ > > NE 
REAL LFFT 

CeMMgKj/'jAT-A/C, AI,R,AL*E>AJ,0ASLASHALErT/AV/AMeD{7)ABLANK 
C0 MMBN/NT I MES/NT I m e s 

CeMM6N/SITS/LBlTS(3COO);LPAT4(300/2)/VPATH(366)/S(300)^NPATH^ 
1SM0D!99)/TYPE( 30) 

0IMr„Sl9M I SAVE! 1201 ) 

EgUI VALENCE (LPATH(1/1)>ISAvE!1) ) 

DQlgl *1* l£0l 
lg ISAVEU)=JSAVE(I) 

C SET STARTING P0INTER 

U2 

3 —A { 1 ) 

IF! (B*EQ.P ) *9R. (B.rQ.C) .6 R« (B.eQ*AL) .6R. (B.EO.E) »SR« (0*EQ.AJ) 
1B.F3.0) >1 = 1 

C LOOK FeR the slash 

CALL ASCAN[8,I,j) 


UCLA9500 
UCLA9510 
UCLA9520 
UCLA9530 
UCLA9S40 
UCLA9550 
UCLA9560 
UCLA9570 
UCLA9580 
UCLA9590 
UCLA9600 
UCLA9610 
UCLA9620 
UCLA9630 
UCLA9640 
UCLA9650 
UCLA9660 
UCLA9670 
UCLA9680 
UCLA9690 
UCLA9700 
UCLA9710 
UCLA9720 
UCLA9730 
UCLA9740 
UCLA9750 
UCLA9760 
UCLA9770 
UCLA9780 
UCLA9790 
UCLA9800 
UCLA9810 
UCLA9820 
UCLA9830 
UCLA9840 
UCLA9850 
UCLA9860 
UCLA9870 
UCLA9880 
UCLA9890 
UCLA9900 
UCLA9910 
UCLA9920 
UCLA9930 
UCLA994CT 
UCLA9950 
UCLA9960" 
UCLA9970 
UCLA9980~ 
• SR « (UCLA9990 
UCLIOOOO 
UCtlOOlO 
UCL10O20 
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TFt <B.ET. SLASH). AND. <J,G E . I ) ) Gs TO 1 
WRIT? <6/20C> 

200 format tiox, '**«■* illegal name in output field, card ignored* 

3 EPR=1 

return 

1 IF (J-I .GT.11)J=I+11 
902K=1/NE 

M = K 

004L=I>U 

M*u-I+1 

IF(A ( U .NE*CARD(K,w> )G0 T6 2 
A CONTINUE 

GO TO 5 

2 continue 

13 URlTfc (£-.201) (AIKI^k-cI, J) 

201 F9RMAT(10X > '**** I/12A1) 

WRITE (6/ 20?) 

202 FftRMAT ( 15X/ 1 IS AN UnOEFInEO FLEMEnT NAME* CArd IGNORED. ■ ) 

GO TO 3 

5 IF ( I .E0.2)G6 TO 6 

8 LPATM’‘ D ATh < l}=N+(ME*(TYPE(N)-l) ) 

B = AV 

IF(TYPE<N).EQ.1)B=AI 

WRIt^(A>203)B 

203 FORMAT (lCX . <**** OUTPUT ELEMENT HAS ILLEGAL DEPENDENCY TYPE. 
1AM ASSIGNS '> A) , ’ . I ) 

GO TO 7 

6 IF ( A ( 1 ) .EQ.AV)LPATM(NPaTH* 1 ) «NE+N 
IF( At 1 ) .EO.AI )LPATH(NPATh, 1 ) =N 

* lF(LP AT -UN p ATHi 1).EQ»O)G0 TO 8 

7 I = J + 3 
8=A(3-1) 

IF f (C.EO.R) .0R. (8.E0.C) .OR. (B.EQ.ALJ.OR. (B.Ea.E) .SR.tB.EG.AJ 
1P.EQ.0) ) I=J+2 
Nl = J 

CALL ASCAN<8,I,J) 

IFC (B. CO. BLANK) .ANq. (J.GE.I ) )G0 TO 9 
WR I Tc ( 20A ) 

2 oa format t icx* ***** illegal name in input field. ca r d ignbreo*' 

GO TO 3 

9 IF( J-I.GT.11)J=I+11 
Dfil0K=l/NE 

NoK 

DfUlL=I» J 
M=L-I+1 

IF { A < L ) ,NF.CARD(K,M) )G8 TO 10 

11 CpNTlNUE 
G0 TO 12 

10 Continue 
go TO 13 

12 IFt I .EQ.N1+3)G6 TO 14 

1* LPATH ( N d ATHj 2)*N+(ME*7YPe(N) ) 

Bs Ay 


UCL10030 
UCL10040 
') UCL 1 0050 
UCL10060 
UCL10070 
UCL10080 
' UCL10090 

UCL10100 
UCLIOllO 
UCL10120 
UCL10130 
UCL10140 
UCL10150 
UCL10160 
UCL10170 
UCL10180 
UCL10190 
UCL10200 
UCL10210 
UCL10220 
UCL 10230 
UCL10240 
UCL 10250 
UCL10260 
PRBGRUCL10270 
UCL 10280 
UCL10290 
UCL10300 
UCL10310 
UCL10320 
UCL 10330 
UCL10340 
) .OR. (UCL10350 
UCL10360 
UCL10370 
UCL10380 
UCL10390 
UCL10400 
) UCL10410 

UCL10420 
UCL10430 
UCL10440 
UCL10450 
UCL10460 
UCL10470 
UCHO 48 O 
UCL10490 
UCL1Q500 
UCL10510 
UCL 10520 
UCL10530 
UCL10540 
UCL10550 
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ao5 


14 


15 


C 


1 

6 

4 


3 


12 

5 


If(TYPF(N).E0.0)B=a! 

WRITE ( £>* 205 )B 

format < iox* ***** input element has illegal dependency type. 

IN ASSIGNS 'jAl; I . 1 ) 

Ge to 15 

IF(A(I»1) «EQ.AV)LPATH(NFATH,2),N+NE 
IF t A < I -I > .eO.AI )LPATH(NPATH,2)=N 
IF<LFATH(NPATH,2) .EQ*O)G0 T0 1 6 

return 

END 

SUBR8UTINE PLPT 

H.F.8KRENT U.C.L.A. 1967 

INTEGEP ERR" " 

INTEGER SHAX.SMIN.3AG/SMAX1,SMIN1/SENS/SMaX2 / sM1N2>BM0D(8)> 
REAL Left, minus 
DIMENSION SM I n ( 2 ) , SMAX (2) 

CeMM0N/ClRClT/CARD(5O, 12 ),VN( 101 > 2 ),NE.>SMax,SMIN 
C0MM0N/3 AG/GAG (?">), NSEN, SENS (5o ) 
CeMM0N/W8RSTl/Nw0RsT/VK{lOl,2>,T9L(5O)ASMAX2,sMIN2 
CqMMqN/DATA/AC, AI,r, AL,E, AJ,d, SLASH, LEFT* A V,F, AS,T, R,P,CM gD 
1 BLA’JK,PLUS,MINUS,R!GHT,EgU,AM,H,AK,C8MMA,Y,Aa,X'U>AB,W 
CSMH«N/SPEED/F2 ( 2048 ) 

C8MHaN/PATHS/LPATH( 6 00),VPATH(300),S(300),NPATH 
CBMhON/A/A ( 80 ) 

C0MM9N/PeLY/vNSEN{lOi/2,2O),vNoO(2O2O)/SMAxl(2O),SMlNlt2O) 
C0 MMON/B its/FI ( 4^96) , 

SB1<50>,C(50),NXFR, A1C50),NXTI, AMSOIs). 

INuMFP, NUMT I , NF ( 1 1 ) , NR ( 1 1 ) , M0 R, m&RN'JM, NTaY, ISN, SCMAG, SCFREG, 
2T i , T2> T3, DM0D ( 8 ) 

C8MM0N/ERP/ERR 

EQUIVALENCE { AMbD ( l ) , 8M6o ( 1 ) ) 

11=0 

12=0 


UCL10560 
UCL10570 
PROGRaUCL 10580 
UCL10590 
UCL10600 
UCL10610 
UCL10620 
UCL10630 
UCL10640 
UCL10650 
UCL10660 
UCL10670 
UCL10680 
S UCL1Q690 

UCL10700 
UCL10710 
UCL10720 
UCL10730 
UCL10740 
(2), UCL10750, 

UCL10760 
UCL10770 
UCL10780 
UCL10790 
UCL10800 

ucnoaio 

UCL10820 
SIGMA, UCL10830 
UCL10840 
UCL10850 
UCL10860 
UCL10870 

UCL1Q880 


NElaNE 
NE=NPATH+1 
0011=1,8 
SMfiPf I >=-l 
1 = 1 

CALL ASCA)v(B, 1,1) 

IF ( 8. NF. LEFT) CAL-L MSGILEFT, 1 + 1 ) 
IF(5.EQ.BLANK)G0 to 2 
IFUB.EO. SLASH). 0R. (S.EQ.LEFT) )G9 T0 3 
CALL ASCAN (B, I +2/ I ) 

G0 T0 4 

call ascan(B,i+2,j) 

IF(3.NF.E0U)CALL M$s (£ 0U, J+l ) 

IF( (8*EQ. BLANK) ,9R.(B.EQ, RIGHT) )G0 Te 2 
IF(8.NE.SLASH)G6 T0 12 
I * J+2 

Ge T<3 3 
K*J+2 

CALL ASCAN(8,K,L> 

IF (B«NE»MNUS)G8 TO 7 


UCL10890 

UCL10900 

UCLioSlO 

UCL10920 

UCL10930 

UCL10940 

UCL10950 

UCL10960 

UCL10970 

UCL10980 

UCL10990 

UCLllOOO 

UCL11010 

UCL11020 

UCL11030 

UCL11040 

UCL11050 

UCL11060 

UCL11070 

UCLU080 
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9 
2 

14 

10 

15 


K=L+2 
60 T6 5 

IF<(A<I+2).NE.T)'.0R.(AU+3).NE,Y).>G0 T8 8 
r F C ( A ( J + 2 ) • EQ . A I ) . AND, (A{ J+3 ) ,EQ«AM) )BMeD(3)«6 
lF< (A( J+£),EQ.AS).AND* (A(J+3).EQ»T ) >BM0D(3)ai 
I F [ ( A ( J+2 ) .EO.E ) .AND . AJ J+3 )j_EQ. X ) _B_M0D ( 3 ) »2 
IF ( ( A ( J+2 ) '« EQ • AS ) . AND . ( A (J+3 ) • EQ • A IT) BM0D ( 3 ) »3 
IF< ( A< J+2) .EQ.P)'AND.A< J+3) .FQ.U) BM8D(3>=4 
IF ( ( A ( J+2 ) *EQ«F ) .ANiD* A ( J+3 ) »EQ,R ) BM8D<3)»6 
IF < (A< j+2) .EQ.AS). AND, (A(J+3).EG*E) )BM8D(3)*7 
IF( ( A( J+2) .EQ.W l.'AND. (At J+3 ) «EQ*8> )BM8D(3)*8 
IF((A(J + 2)_.EQ.R ),AND.oyj+3).E_Q.E) )BH8D(3)>»9 
60 T 8 9 

I F ( ( A ( 1+2 ) *Eq «E ) • AND • ( A ( 1+3) »Eq, AL ) )G 6 T 8 20 
CALI. NUMBER! J+2, L)' 

IFC r AC 1+2) ,EG.AS).4ND,(A{ 1+3) ,E0. T))AM0D(1 ),vPATH(NE) 

IF ( ( A ( 1+2) .EQ.T) .AND. (A( 1+3) .EQ.AI ) ) AM0D t 2 ) =YPATh < N E ) 

IF ( ( A ( 1+2 ) »EQ. AA AND. ( A ; 1+3 WEQ» AM ) ) AMpP ( 4 ) , v pATH(NE ) 

I F ( ( A ( I +2 ) -EQ . AB ) ."anDT( A ( 1+3 ) . EQ * A H ) AM0D ( 5 ) , yPATH ( N£ ) 

IF ( ( At 1+2) .EQ.AC) .AND, ( A( 1+3) .EQ* 8 > > AM0D ( 6 ) =yp ATH t N e > 
lF( (A( I + 2)«EQ.AC).AND»~(A( I+3)»EQ.Y) ) AMOd < 6 ) = VPATh ( NE > 
lF((AtI+ 2 )«EQ. FJ.AND. (A( 1+3). EQ* R ) ) AM0D( 6 ) =yPATH (NE ) 

IF ( ( A ( 1+2 ) .EQ".T) .AND* <A(I+3)*EQ.8) ) AM0D( 7) sVPATH (NE) 

IF ( (At I + 2 ). EQ.W), AND . ( A 1 1 +3 ) .EQ.AI> ) AM 8 D ( 7 ) = YPATH t NE ) 

IF ( ( At 1 + 2 ) .EQ: d" 5 * AND* fA{ 1 + 3 ') lEQ.'E) ) BM0D ( 8 ) *vPATH t ME ) +o. 5 
I =L 

IF(( 8 .EQ. BLANK). 0 R;fB'.EG;Rl 6 HT))Ge T 8 2 
G 6 T9 3 

IF(BM9D(3).LT.6)66 T9' l"4 ' ' ' 

IF (?M0D< £,) .EQ.-l ) AM 8 D( 6 ) = 1 ,0E0 
IF(5M0Dt7).EQV-i)AM0D(7T3r.E6" ~ 

IF (BM 8 D< 1 ) . Eq. - 1 _) AMODJ 1 ) a (_A_M0D (7 J/AM0D ( 6 ) ) ** 1 , £- 2 
66 TO 15 

IF.((BM8D(1). NE.»1) .9R.(BM0D(2).N£.*1))GB TQ 1 q 

AM9D ( 1 ) =0.01" “ 

AM0o ( 2 ) = 1 .0 

I F t BM 8 D < 1 ) Eq . - 1 IAM0D m =,'AM0DT2 ) 71Q0. 

IF(BMeD(2) .EQ.-1)AM0D(2)=1OO«*AM0D( 1) 

IF(BM0Dt3) *EQT=1 )BM0D(3)=O " ' 

IF (BM0D 1 4 ) *EQ. -1 ) AM0o(4)al »0 
IF(BM8Df5).NE.+l)AM0D(4) 3AM0D { 4 ) +AT10D (5 ) 

IF ( E5M0D < 6 ) .EQ.-i )AM0D(6)»i.O 

I F ( BM 0 D ('7 )'.'NET"1')'B V 10T31"3T^5 ", 

IF(BM0D(8>. E Q.-1)BM0D(8) O 1 

IF(BM8D(3) .Eq.7)G0 78 "2Y " 

IF { gll0D ( 3 ) * EQ . 8 ) G 8 TO 22 

NsMjMsMiNotsMrNuusMiNTfan - - - - - 

NSMaX*MAX 0 (SMAX( 1 ) , SMAX ( 2 ) ) 

I sNsMAX'NSMIR+l 
D013J*1> I 

K=5o+NSMjN+J “ 

Ai(J)»“VN(K#2) 

Bit j)’*vn(K/i r “ ~ 


UCL11090 

UCLlliOO 

UCLlillO 

UCL11120 

UCU11130 

UCLH140 

UCL11150 

UCLJ1160 

UCU1170 

UCUU80 

UCLH190 

UCL11195 

UCL11200 

UCLJ1210 

uaii22o 

UCLU230 
UCLU240 
UCL11250 
UCL11260 
UCL11270 
UCL112S0 
UCLU290 
UC111300 
UCL11310 
" UCL11320 

UCL11330 
UCL11340 
UCL11350 
~ UCL11360 
UCLU370 
UCL11380 
UCL11390 
UCC11400 
UCL11410 
UCLU420 
UCL11430 
“ UCLU440 
UCL11450 
UCL11460 
UCL11470 
' TJCL 11480' 
UCLU490 

0CC1T500 - 

UCU11510 
” OCL11520 

UCL11530 
“ “'UCLH540 
UCL11550 

UCU‘1560 

UCL11570 
“ ' UCU1580" 
UCH1590 
- UCtTl ISCHI- 


AL 



Jd + 1 

oem=j,5o 

Aid 7=0*0 
li tJKIlsO.O 
25 ME = '!L1 
RETURN 
20 M=L-J-1, 

IF (MifiTt is)M=i2 
08 if H2*1,NE1 " 

08 30 

IF (CARD (M2.* Ml ) »NE*A ( J+l+Nl ) )G0 TO 31 

30 CONTINUE 
Il*N2 
GO T0 35 

31 continue 

99 Wr I TE < 6* 100) 

too FqRMAT ( /IO’Xj '**♦* INVALID REQUEST 
♦ 0J-- IGNORED* 1 ) 

ERR=1 
30 TO 25 

35 IF(SENG(I1)-NE.0)G9 T8 36 
GO TO 99 

36 00 37 N=i,NSEN 
lF<SrNS(Il).NE.GAG(N)>G0 T8 37 


UCL11610 

UCL11620 

UCLU630 

UCL11640 

UCL11650 

UCL11660 

UCL11670 

UCL11680 

UCL11690 

UCL11700 

UCL11710 

UCL11720 

UCL11730 

UCL11740 

UCL11750 

UCL11760 

sensitivity qr wsrst case pluclh77o 

UCL11780 
UCL 11790 
UCL11800 
UCL11S10 
UCL11820 
UCL11830 
UCLU840 


I2 = M 
38 TS 9 
37 continue 

21 IF< I?*EQ.0)C8 T 8 99 
I*SmaX1 ( 12)*SMIN1U2)+1 

no 50 u=i, i 

K=5o+SMINK I2)+J 
Al(J)=VNS£N(K,2, 12) 

50 B1(J)=VNSEN(Kj 1, 12) 

U=I+1 

06 51 I = J, 50 
AKI 1=0*0 

51 Bid 1=0*0 

WRITE (6/ 10l> (CARO (j l,I ),I*1, 12) 

101 F0RMATI 1 1 d 'SENSITIVITY WITH ReSPECT jO ',12ai) 
GO TB 25 

22 IF { JLORST.EQ.OIGS t8 99 
I=SNaX2-SMIN2+1 

08 ijO J= 1 , I 
K=50+SNIN2+J 
A l ( J 1 = VW ( K , 2 ) 

40 8 1 ( J) =VW ( K » 1 ) 

J=l + i 

OP 41 I=J>50 
AKI 1=0*0 

41 Bid 1=0*0 
WRITE (6, 102 ) 

102 FBRWAjd 1 1 , 10X, 'WSRST CASE TOLERANCE ' > 

GO TO 25 


UCL11850 
UCLU860 
UCL11870 
UCL11880 
UCL 11 890 
UCL11900 
UCL11910 
UCL11920 
UCLU930 
UCL11940 
UCLU950 
UCL11960 
UCL11970 
UCL 11 980 
UCL11990 
UCL12000 
UCL12010 
UCL 12020 
UCL12030 
UCL12OA0 
UCL12050 
UCL 12060 
UCL12070 
UCL12080 
UCL12090 
UCL12100 
UCL12110 
UCL12120 
UCL12130 
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c 


c 

c 


c 

c 


END 

SUBROUTINE fine 

DAVID PALETZ U.C.L.A. 1967 

INTEGER 6 RIGIN,TARGET, B6RIGN,8tARGT,0DUM,BGENeR 
INTEGER TAG/ERR, GENER 

integer blank 

CeMMRN/ERR/ERR 


ucLiai^o 

UCL121S0 

UCL12160 

UCL12170 

UCL12180 

UCLL2190 

UCL 12200 


C0NmoN/CIRCIT/CaRD{5O> 12),TAG(sO>/ GENER ( 50 ) , 0RI GIN ( 50 ), TARGET (50 UCL12210 
1 ) / 1 nPUT , eUTPUT * NE UCL12220 
C0HM8N/ P ATHS/0CARD(5O/ 12) > VPATH (300 ), Z (100 ) /6z ( 100 },00RIGN( 50) > UCL12230 
10TARGT(5o>/W UCL12240 
C 3 MM 0 N/B ITS/L80P ( 3Q00) , D£p (50, 13 ) ,NN0DES/ IN0DE/LlNE( 132) , iNDICf 50) UCL 12250 
1/0DUM( 50) »NUM8 (50 ) .NINpICt 100) , lJUNK (18) /8GENER ( 50) / JU^K ( 48 )» 8VPATUCL 12260 
1H{300) t UCL12270 
CnMN0N/OATA/C,AI,R,AL,E/AJ,D, SLASH, LEFT, Av,F,aS,T/ 9,P, AN,PNT,BLANKUCLl2280 


1, PLUS, MINUS, RIGHT, EQU, AM, H,AK, COMMA 
C 0 MiigN/X/ 8 IlO) 

WrITE ( 6/ 99 ) w 

99 F0Rm«T(// 2X/ •'Wa'i ,E{2«4) 

CALCULATING THE RESISTANCE/ IM OHMS, 
9.9*?0**30 STAYS F 8 R INFINITY. 


BF the ELEMENTS, 


UCL12290 

UCL12300 

UCL12310 

UCL12320 

UCL12330 

UCL12340 


J =1 

D8 1 1*1, NE 

I F ( CARD! I , J) .EO.E)Z( I >=0. 

IF (CARD! I, J) .EQ.AJJZII )»9'9E30 

IF I CARO ( I,J) ,EQ.C)Z( I)*1./{VPATH(I >*W) 

IF (CARD! I, J) .EO.ALlZt I)=VPATH{ I >*W 
IF (CARD! I, J>.EO.R)Z( I)*VPATH(I ) 
iFICARDt I, J>«EQ.O)GB T8 2 
G0 TO 1 

2 J = 2 

IF<CAR0U,J).EQ.E)Z(I)«0. 

IF (CARD! I/J) .EQ.AJiZII ) =9»9E30 
J «1 

1 continue 

ARRANGING THE ELEMENTS IN A SEQUENCE OF 
VALUE. ' - “■ - 

DO 4 1*1, NE 

D0 ^ J° 1/ NE " 

IF ( Z C I >»Z{ J) >3,3,4 

3 DUMnY*Z(j) 

Z{ J)=Z( I ) 

” ZU)=DUMMY ■ ■ 

8 Z(J)’Z( J) 

DUM = 0RIGIN'(U) ' " 

9RIGIN(J)=8RIGIN(I ) 

ORIGIN"! 1 frOUM 

8 BRIGN(J)= 8 RIGIn(J) 

DT)M"=TARGeTTU) ' ' ■ 

TARGET t J) = TARGET ( I ) 

“■ TARGET! I )iD8M " * 

0TArGT(J) s TArGET(J) 

KDUhMY=T3eNER( J> “ ----- 


UCL12350 
UCL12360 
UCL12370 
UCL12380 
UCL12390 
UCL12400 
UCL12410 
UCL12420 
UCL12430 
UCL12440 
UCL12450 
UCL12460 
UCL12470 
“ ‘ UCL12480 

INCREASING R£SISTANCEUCL12490 

UCL12500 
UCL12510 
UCL12520 
UCL12530 
UCL12540 
UCL12550 
UCL12560 
UCL12570 
UCL 12580 
UCL12590 
UCL12600 
UCL12610 
UCL12620 
UCL12630 
UCH2640 
UCL12650 
UCL12660 
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GeNeR ( J > *G£NER I I ) 

3 eHER< I ) sKOUMKY 
0 GENeR<J)=GENERt J) 

ADUH^Y=VPATH(J) 

VPATHt J)rVPATH(I ) 

VPATh ( I ) SADUMMY 
9 VPATH( J)=VPATH( J) 

DPUN=DEP(J/ 13 ) 

D£P( j/ 13 )=DEp( I/T 3 ) 

DEP( I/13)*DRUM 
oa 4 N=l/l 2 
DPUM=DEP< J/N) 

0 EP( j/N)=DEP(I/ij) 
dep< J/N>«dRUm 
DEEM*CARD( J>N) 

CARD(J/N)=CARDU/N) 

CARD! I/N)=DEEP 
8 CARD < J/ N ) =CARO{ N ) 

4 C 6 NTIWE 

DP 7o I*1/NE 

70 VPATH(I) = SVPATH(I> 

c determining Hew nany nodes there are in the circuit. 

J*l ' ‘ 

D 0 a® 1=2/50/2 

N*I -1 ‘ 

NINdIC(N)c 98 RIGN(J) 

NjfJoicn )=stargt" 10 ) 

J*J +1 

IF t J.GT.NE )G 0 ‘T 8"‘47 

40 csnt inue 

47 NUMjMD=t “ ----- 

NU , '!B;i)=NIN 0 lC(l) 

NUNS £ 2) =NINDICC 2 )~~ 

J = 2 

42 D 6 41 I = 3 /NUMIMD " ' " 

NTAG=1 

06 44 N = 1 / J ‘ 

IF tNlNOIC ( I ) .EO.NUNB(N) )NTAG =0 

44 CONTINUE 
IFtNTAG.EQ.DG 9 T 9 45 

41 CONTINUE 
G 6 JO 46 

45 J=J+i 

MUNB(J)=NINDIC( I) 

GO Tfl 42 

46 NUNN 8 D=J 

C DETERMINING the ELEMENTS THAT F0RM TREE. I.E. HAVING JAG 
D 6 D 1 = 1/50 
I I'D IC { I ) =0 
9 TAG ( I ) =0 

INDlcm= 09 RlGN[l) 

II 0IC(?)=8TARGT[ 1) 

TAG(l)=l 


UCL12670 
UCL12680 
UCU 12690 
UCL12700 
UCL12710 
UCL12720 
UCL12730 
UCL12740 
UCL12750 
UCL12760 
•JCL 12770 
UCL12780 
UCL12790 
UCL12800 
UCL12810 
UCL12820 
UCL12830 
UCL12840 
1JCL 12850 
UCL12860 
UCL 12870 
UCE12880 
UCL12890 
UCL12900 
UCL12910 
UCU12920 
UCL12930 
UCL12940 
UCL12950 
UCL12960 
UCE12970 
UCL12980 
UCL12990 
UCL13000 
UCL13010 
UC113020 
UCL13030 
UCU13040 
UCL13050 
UCL13060 
UCL 13070 
UCL13080 
UCL13090 
UCL13100 
UCL13U0 
UCL13120 
UCL13130 
UCL13140 
UCL13150 
UCL13160 
UCL13170 
UCL 13180 
UCL13190 
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13 

15 

16 
17 


20 


10 


11 

18 


32 


33 


31 


30 


34 


L = 3 
1=2 
J=1 

IF( 0 eRIGN(I).ES.INOIC(J))Ge 
I F { 6TARGT ( I > •EO.INOIC(J) )G0 
J=U+1 

!F< J.GT.5O)G0 T8 20 
GO TO 17 
i = i+? 

G0 T0 16 

9dJM(I >=6TARGT( I ) 

GO T8 18 

OOUM(I)=08RIGN(I) 

IFCT/'GU l.EG.UGe- TO 34 
IF C I K'O I C C L > >33,32,33 
JFfL.GT.KUHNBOjCe TO 12 
TAG ( 1 > = 1 
U0lC(U=6DUM(I) 

GO TO 13 

De 3l NKf=l/50 

IF ( IND IC ( KIN ) • EQ «0 ) GO TO 30 

CONTINUF 

go re 34 

L=NKJ 
GO TO 32 
1 = 1 + 1 
GO TO 16 


TO 

TO 


10 

11 


12 WRITE(6j100> 

100 FORmaT(//i The tree IS formed by the ELEMENTS that have 

3G I'//) 

WR I TE ( 6, 101 ) 

101 FORMAT (» ELEMENT NUMBER', 5X, 'ELEMENT NAME t , 5 )(, ’ORIGIN N6D£',5X 
itaRgeT node'sx, 'value (ohms) », 13 X, 'tag',12X, »geneR’ ) 

DO 7 1=1,132 

7 LINEt I )=BIANK 
06 3 1 = 1,120 

8 LlNE( I )=M[NUS 

Wp I TE ( 6 , 104) (LINE (I ), 1=1,120) 

104 FORMAT ( 120A1 ) 

00 5 I = 1 j NE 

W R ITE(6,102)I, ( eCA=?D< I , J ) , J= 1 > 12 ) , OOrI GN ( I ),B T ArGT(I ), eZ(I),TAG( 
1,0GENER( I ) 

102 FORMAT ( 7X, 1 2, l7X, i2Ai, 6 X, I 2/ l5X, I 2, 1 OX, El 5 <8, 13X, II, 15X, 1 1 ) 

5 continue 
return 

END 

SUBROUTINE SCALER 

H.F. 8 KRENT UCLA 1969 

INTEGER FACTBR 

C 8 MM«N/ERR/ERR, factor 
C 6MH9N/C IPC IT/CARD (50, lp ),8M0D( 2 02),NE 
C 9 MM 0 N/RATHS/LPATH ( 600 ) , VPATH ( 300 ) , S (300 ) , N'PATH 
C 0 MM 6 N/DATA/AC, AM 6 r>( 2) , AL 


UCL13200 
UCL13210 
UCL13220 
UCL13230 
UCL13240 
UCL13250 
UCL13260 
UCL13270 
UCL13280 
UCL13290 
UCL13300 
UCL13310 
UCL13320 
UCL13330 
UCL13340 
UCL13350 
UCL13360 
UCL13370 
UCL13380 
UCL13390 
UCL13400 
UCL13410 
UCL13420 
UCL13430 
UCL13440 
UCL13450 
UCL13460 
UCL13470 
TAUCL13480 
UCL13490 
UCL13500 
, 'UCL13510 
UCL13520 
UCL13530 
UCL13540 
UCL 13550 
UCL13560 
UCL13570 
UCL13580 
UCL13590 
DUCL13600 
UCH3610 
UCL13620 
UCL13630 
UCL13640 
UCL13650 
UCL 13660 
UCL13670 
UCL13680 
UCL13690 
UCL13700 
UCL13710 
UCL13720 
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uu u u 


FaCt6R=Q UCL 13730 
0 = 0, IJCL13740 
DL=0* UCL 13750 
DF=o* UCL 13760 
D61I=1aNE UCL13770 
IF ( (CA t ?D( I / 1 > ,NE * AC) • AND. (CARD (I,1),NE.AL))G0 TS 1 UCL13780 
IF ( VPATH( i ) "EO.O, )GS TO 1 UCL1379C 
A = AL f iGlO(ABS(VPATM(l )) ) UCL13800 
0=0 +a5S(a+FL 8AT (FACTOR) ) UCL13810 
0L=Dl + A3S ( A+FL8AT ( FACTOR* 1 ) ) UCL13820 
9R=DR+ASS( A+FL8AT(FACT9R+1> ) UCL13830 
CONTINUE UCL13840 
IF ( (D»LT»6C» ) .AND. ( FACTOR. EG. 0) ) RETURN UCL 13850 
IF (OL«LT ,0 )G8 Tff 3 UCL13860 
IF(DR*LT.D)G8 TB A UCL13870 
IF(FACT9R.EQ.0)68 T0 6 UCL13880 
065 1 » 1 . NE UCL13890 
IF<<CARD(I,1 ).NE*AC).AND,<CARD(Ia1).NE.AU)>G9 T6 5 UCL13900 
VDAjhU )=VPATH(I)*( 1O.**FACT0R) " UCL13910 
CONTINUE UCL13920 
RETURN ' UCL 13930 
^P1TE(6<2CC) UCL 13940 
FeRMAT(i 0 X, ’**** the Range 8F ELEMENT VALUES is Tea LARGE T0 BE SCUCL13950 


1ALED,'/1 0 X^ '»*** ERR6NE0US RESULTS DUE TS 9VERFIBW MAY 6CCUR, ■ ) UCH3960 

GP Te 7 UCL13970 

! D=OL UCL13980 

FaCt0R=F A CT0R-1 * UCL13990 

Ge TO ? UCL 1 A 000 

( D=DR UCL14010 

FACTSR= r ACTSR+l UCLH020 

G0 T0 8 UCL14030 

END UCL14040 

SUBROUTINE P0L5EN UCL14050 

UCL14060 

S. BRANDI U.C.L.A. 1969 UCL14070 

COMPUTE THE SfNSITIVIjES 0F THE P9LES 0F THE TRANSFER FUNCTION UCL14080 

UCL14090 

INTEGER SENS, GAG UCL14100 

INTEGER SMlN/SMAXjSMINl^MAXl/SMINOl/SMAXoi^SMlNoO/SMAXoo^SMINlOi UCL 14 110 
•SNAxTC UCL14120 

COMPLEX POLE UCL14130 

C6MMeN/P9L y 7VN01 < lol^2o), VNool 1O1 a 20>< VNlo( 101^20 I^SMAXoJ ( 20)> UCL14140 

•SMJNCl (20) ,SMAXOO( 20 ),SMiNOO (20)/SMAX10(2o),SMIN10(20) UCL 14150 

C6MNSN/SPEED/PSLE ( jO)<NP9lES UCL14160 

COMhON/C I PC I T/C ARD ( 50, 12) t VN < lol* 2 > aNEaSMAxaSMIN UCL14170 

CO’lMf N/GAG/GAG (?T),NSEN,SENS(5 q) UCL14180 

dimension s m i ’•■m s > ^ si^ ax { 2 j UCL 1419 Q 

DIMENSION VOERlV(lol),A(50)<B(50)'»C(50),D(50) UCL14200 

RETURN rE R80TS 0R SENSITIVITY FCN N0T PREVIOUSLY F0UND UCL14210 

I F ( f, P f ’LES,NF . 0 < AND .iNSEN «N£ . 0 )G8 T0 1 UCL14220 

NpITt.'(f,ioO) UCL14230 

100 FO ?\AT(/iox> '***» rj38TS AND/0R SENSITIVITY REQUEST N0T PREVI0USLY UCL14240 


»M*Dc.- c nLE SENSITIVITY REQUEST JGN9RED* ' ) 


UCL14250 
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RETURN 

UCL14260 

c 


TAKE 0e r IV* Afr OEN0MINAT0R 0F TRANSFER FUNCTION 

UCL1A270 


1 

Il=S M IMl)+5l 

UCL14280 



I £=SMAX { 1 ) +Bl 

UCL14290 



oe 5 1=11/ 12 

UCL14300 


5 

VDERlVf I“1)=(I-51) *VN{ 1/ 1 ) 

UCL1^310 

c 


EVALUATE it at the poles 

UCL14320 



DO 7 K=l/50 

UCL14330 



C(K) = 0.0 

UCLU340 


7 

0 ( K ) =0* 0 

UCL14350 



D6 6 UIjNPOLES 

’JCL 14360 



A(L ) =REAt (POLF (L ) ) 

UCL14370 



B(L)=AIMag(P9LC(L) ) 

UCL14380 



oe 6 *=11/12 

UCL14390 



I F ( Atu •EO*0)G0 TO 60 

UCL14400 



C(L)=VDERIV<K-1) r A{L>**(K-52)+C<L> 

UCL14410 


60 

IF(B(L) .EO'OlOfl TO 6 

UCL14420 



ntL)=VDERIV(K-l)*B(L)**(K-52)+0(L) 

UCL14430 


6 

continue 

UCH4440 

c 


FIND SENSITIVITY FCNS F8R ALL S p EC|FjED ELEMENTS 

UCL14450 



DO 2 1=1/ NE 

UCL14460 



IF(S£NS( 1 ) .£0.0)30 TO 2 

UCL14470 



DO 3 J=1/NSEn 

UCL14480 



IF(S£NC< I ) .E(3.oAG< J) )G0 T0 a 

UCL14490 


3 

CONTINUE 

UCL14500 


4 

WRITE (6/ 101 ) I CARD { I/K)/K = l, 12) 

UCL14510 


101 

F0RmaT( ' 1SENSITIVITY OF POLES T0 '/12A1///) 

UCL14520 



WR I TE 1 6' 102) 

UCL14530 


102 

FORmAT ( 15X/ 'P0l£S', 24X/ 'SENS I Tl VI TY t //9x> ' REAf ' / 10 X/ UMAG'/i4X/ 

'REUCL14540 


*AL'/iCX/ iJMAG'/) 

UCL 14550 

c 


rVALUATE NUMERATOR OF ROOT SENSITIVITY FCN AT THE POLES 

UCL 14560 



DO 2 L= 1/ NPOLES 

UCL14570 



X = 0 

UCL14580 



Y*0 

UCL14590 



Il=SMlNl0< JI+51 

UCL14600 



I 2=SMAX1q ( J ) +51 

UCL14610 



DO iT *=Il> 12 

UCL14620 



IF(A(U •EQ»0)6o TO 110 

UCL14630 



X=X+VN10 (K/J>*A(L)**<K-51) 

UCL14640 


110 

IF < B ( L ) .EG.CJG8 TO 11 

UCL14650 



YsY+VNIO (K» J)*8(L>**(K-51) 

UCL14660 


11 

CONTtNUE 

UCL14670 

c 


OBTAIN ANSWERS {PREVENTING 2ER00IVIDE) 

UCL14680 



IF(C(L) .NE«0)G0 TO 12 

UCL.14690 



P=0 

UCL14700 



GO TO 23 

UCL14710 


12 

PsX/CIL) ' “ ‘ 

UCL14720 


23 

If(D(U*NE*C)GO to 13 

0 = 0 " ' ' “ 

UCL14730 

UCL14740 



GO TO 14 

UCL14750 


13 

Q=Y/D(l) ~ 

UCL14760 


14 

WRITE! 6<103)A(L)/B(L)/P/0 

UCL14770 


103 

FORMAT (6X/ lPEU.4/3X/lPEll.4/6X/lPEll»4/3X/lPEllt4) 

UCL14780 
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c 


2 


3 


1 


C 


c 


c 


2 continue 
RETU 0(m 


£NO 

5U3R0UTINE EOUAL( I,J>N/NTIMES) 
H.P.9KPEM U-C.L.A* 

CSMwgN/B ITS/K t 3000 ) 

IF(NTIHFS.GT.0)G9 Tfi 2 
r p f i«LT.0)Ii”C IABS( I J-l ) *IABS (NTIMES j 
rF(J*LT«0)Jl = (IA8S{J)'l> *IA8S (NTIMES) 
if < I »GT» 0 J 1 1*300* + < MIMES* 1 ) 

!F< j,GT.O)Jl=3000+(NTIMES*J> 

GO 10 3 

I2=-T 


J2=- 1 

JFU .LT.O) 12=99 
IF < J,LT.C)J2=99 
1 i^NTlMES* < IA0S( D + IH) 
J1=NTIMES*(!ABS<J)+J2) 
Ni=|aBS(NTI ^ES ) 

M1 = I 1+M 
N£= Jl**H 

LaN [ K ( Hi IjKjMg) ( 

RETURN 

END 

FUNCTION LORU/J) 

h.f.okrent u*c«u.a. 

LOGICAL K1/L1 

ECU I VALENCE CK1,K) , (Ll.L) 

LftRaO 

Kal 


L = J 

K1.K1-SR.L1 
I =K 

RETURN 

END 

FUNCTION LOXU^J) 

H.E-OKRENT U.C.L.A* 

LOGICAL K1iU»M1 

EQUIVALENCE (Kl,K)> (Ll/L); (Ml/M) 

L?X=0 

Kai 


La J 

HlaKl.AND.Ll 
JaJ-M 
I a 5 -8 

return 

FND 

FUNCTION LSTOR(I.J) 

h.f.hkrent u.c.l.a. 


LETSR=0 

I=J 

return 


1967 


1967 


1967 


1967 


UCL14790 

UCL14800 

UCL14810 

UCL 14 820 

UCL 14830 

UCL14S40 

UCL14850 

UCL14860 

UCL14870 

UCL14880 

UCL14890 

UCL14900 

UCL14910 

UCL14920 

UCL14930 

UCL149A0 

UCL14950 

UCL14960 

UCL14970 

UCL14980 

UCL14990 

UCL15000 

UCL1S010 

UCL15020 

UCL15030 

UCL 15040 

UCL1505Q 

UCL15060 

UCL15070 

UCL15080 

UCL15090 

UCL151D0 

UCL15110 

UCL15120 

UCL15130 

IJCL15140 

UCL15150 

UCL15160 

UCL15170 

UCL15180 

UCL15190 

UCL1S200 

UCL15210 

UCL 15220 

UCL 15230 

UCL15240 

UCL152S0 

UCL 15260 

UCL15270 

UCL 15280 

UCL15290 

UCL15300 

UCL15310 
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END UCL15320 

SUBROUTINE UNjV (! J,NN) UCH5330 

C H.^.OKRENT U.Cit.A." ' 1967 UCL15340 

C0NM6N/8 ITS/L_( 3"o0) UCL1S350 

C0MM6N/NT I MES/ times ' “ " UCL15360 

K»-l UCU5370 

I P 1 1 *Ct *o)K a 99 " " UCU15380 

Il=NTlMES*(IABS{ I)+K) UCL15390 

DO 3M * 1 * NT” I NES ' " ’ UCL1S400 

Nall+M UCL15410 

"lF(U(^>‘NE*“O)'ee'T0 g UCL15420 

3 CONTINUE UCL15430 

4 JaO ' UCL15440 

REIURN _ _ UCL15450 

2 N=1 UCL15460 

M = 1 _ _ UCL15470 

Nl*l " ‘ " ~ UCU15480 

6 IF(N»GT.NN)G8 TB 4 UCL 15490 

IF(Nl*CE.'30lGe T9 5 “ UCL 15500 

M=M+1 UCU15510 

Ni=Nl“30 ' " UCU15520 

5 Mi = n+M UCL15530 

* J=2«#Nl " ■*' UCU15540 

KoLOXlLCMlMJ) UCL 15550 

'TF'(j.E‘QtO)GIT - TB~'J ' " — UCL 15560 

NaN+1 UCL15570 

N1=N1+1 ” * ' " UCL15580 

GO J8 6 UCL15590 

T ' J«Ni+T305Tff*IT7 " " UCL15600 

_ RETURN UCL15610 

END UCL15620 

SUBROUTINE c ALC UCL15630 

C H.E.0KRENT U»C*L.A~. “ ‘ ' 1967 ' UCL15640 

C EVALUATES CURRENT EQUATIONS BY BIT MANIPULATION UCL15650 

Integer “TARGETTgffTG'I'RnrpETBTTANCH" - - — -- UCL15660 

INTEGER err UCL15670 

'COHMOTI/Vr I MES7NT IHeS '00.15680 

EXTERNAL LOX/LOR UCL15690 

C e MNeN/ERR/ERR UCL 15700 

COMm ON/C IRC IT/CARO (50/ l2).»TYpE{50) * GENER (5O)/0 RIqIN(5O) /TARGET (5 UCL15710 

ltfr/lHPUTiBUTPUTTNCr I ~ UCL15720 

C0MMON/B ITS/L INKS ( 500) / BRANCH! 200 ) j NQ { loO),NEL<lOO)i'NBR{ 100 NS (10UCL15730 
“ JTOJ * AM0D< 190T5T7 oEP ( 50* 13 ) • NNBOES* I NODE UCL 15740 

WRITE<6/ 199) UCL15750 

199“ EeRMATt r l' ) " UCC15760 

NTIMES* < (NE»1 >/30)+l UCL15770 

c mrrrsrrSE uclis78o 

NQ ( IN8DE ) =1 UCL15790 

NTs { I N"BT5ET«T “ UCL15800 

NB*Q UCLI58IO 

NN»0 UCL15820 

0836l*IN8DE/NN80ES UCH5830 

NeLTI'JTTO ‘ ' UCL15840 
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3o 

C 


29 


1 

300 

c 


202 


3 


203 
4 

204 
2 


205 


206 

5 


NpR ( I ) =0 UCL15850 

call mbitci,o>ntihes) uclis86o 

call IM3IT(-I> 0, m TIMES> UCL15870 

FPR M EQUATIONS UCL15880 

0011=1, NE UCL15890 

J = 0PJGJNd> UCL15900 

KiTaR^ET ( I ) UCL15910 

NFL( J>=NEL<U)+1 UCL15920 

NELd^NELCO + l UCL 15930 

IF(tYPE( I) .EQ.1)S0 re s 9 UCLj.5940 

CALL I n 3IT(J, I,MtIMES) UCL15950 

CALL IM3JT<-K, l,NTIM£S) UCL15960 

G0 re 1 UCL15970 

NER( J)=NBR(J)+1 UCL15980 

NB9(K)=NBR(K)+1 UCL15990 

MB»M0+1 UCL16000 

CgNTlNUE UCL16010 

FORMAT (IX, 10110) UCL16020 

CHECK TRfe LEGALITY and ENTER BRAMCHES UCL 16030 

D0?I=IN8OEiNM0OES UCL160A0 

Nst i + 1 > =ns C I >+.\0R< I) UCL16050 

NC ( I+l ) =NS ( 1 + 1 ) UCL16060 

IF(MEL( ! ) .NE.o>&e TO 3 UCL16070 

WRITE<6,2c2) I UCL16080 

F0RMA t (1OX, ’»*** NCDE 1 , 1 3, 1 IS ISOLATED DUE TO N3N„C8NSECUTI VE NUMUCL16090 

1BERINS. aARNING— PsOGRAM INEFFICIENCY WILL RESULT* ’) UCL16100 

G0 TO 2 UCL16110 

NM s MN+i UCL16120 

IFt'JfLU ),NE.1)G9 T6 a UCL 16 130 

£rr = 1 UCL16140 

NritF<6.2g3) I UCL16150 

F0RMAT(lOX * '***» NODE', 13, ' IS CONNECTED TO ONLY ONE ELEMENT, SOLUUCL16160 

1TI0.S. IS II POSSIBLE, ' > UCL16170 

IF(mBR( I ) .ME. 0)0-3 T 5 2 UCL16180 

ERR=1 UCL16190 

WRITE(6,?04)I UCL16200 

F0RmaT(i o Xa '*»** NODE 1 , 13, ' HAS N0 BRANCH, THE TREE IS ILLEGAL. S0UCL1621O 

1LUTI0N IS IMPOSSIBLE.') UCL1&220 

CONTINUE UCL16230 

IF ( MB » E 3 • NN * 1 ) G 6 TO 5 UCL16240 

FRR«; UCL16250 

IF (A'B.GT *NN w 1 ) -m I T f (6^205) UCL16260 

FgR-lATUOX* '**«* T 4 F TREE IS QVER-DEFlNEO (ThERE ARE Teg MANY BRA N UCL16270 

lCHESl* SOLUTION IS IMPOSSIBLE. » ) UCL16280 

IF(mB.LT,NN-1) i!R I Tf ( 6/ 206 ) UCL16290 

FORMAT ( loX, '*»** T>-E TREE IS UHDeR-DeE I NED (THERE ARE TOO FEW BRANUCL1630Q 

ICmES ) • SOLUTION IS IMPOSSIBLE.') UCL16310 

IF (ERR.EO. 1 1RFTURN UCL16320 

D37I=1,NE UCL16330 

IF(TY p F( I J.EQ.01G0 TO 7 UCL16340 

j=gs?IGlNd> UCL 16350 

N=TARGETd) UCL16360 

L=NS(J) UCL16370 
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7 

25 


C 


22 

C 


207 


6 

208 

24 


13 


8 

26 


23 


3PAnCH(L)=-I 
L=Ns ( K ) 
BrANC*-'CL) = J 
NS! J)=NS(J)+I 
NS t K ) =NS ( K ) + 1 


UCU16380 

UCL16390 

UCL16400 

IJCL16410 

UCU16420 


continue 
JNBgE® IN0QE+1 
>< = 0 
J = 0 

SEARCH FOR THE FIRST CUT-SET AND EQUATION 
Do2h I = JN gDE* NM6DES 
IF ( ( l "»EQ»0> *AND. (N9R{ I ).EG*l))jxI 
I F ( (K»EG»0> »AND* (NSR( I) »GT»1 ) )K=I 
IF( IK.NE.O) »AND. ( J.NE.O) >G8 TO 24 
CONTINUE 

IF NONE IS FOUND, SOLUTION IS CeMPLETE 
IF(K.EQ.0)G6 TO 23 
ERR=1 

WRITE ( 6j £07 5 

format t lox.* '*»** solution is impossible due to a 

1HE following NODES-' ) 

D06i=JN0De-»NN0Dfs 
IF(NbR(I ).NE.O) WRITE (6^ 208)1 
F0RMAT(85X^ 13) 

RETURN 
N3=N0< J) 

D026l = K,NN0DES 
IF(NBR( I ) .LE.DGO to 26 
L=NBR(I ) 

Ne=NG( I J+L- l 
Do8M*l'L- 
N4=KQ( I ) +M- 1 

IF( IABS(BRANCH(N3) ).NE.IaBS(3RaNCH{N4) > )G0 TO 8 

Ni=j 

N2 = -l 

IF! (pRAnCh(N3)#BRAmCH(n4) ).LT.O)G0 TO 13 

Nl = -1 

N2sl 

CALL EQUAL(I>J*N1,L0R<NTIMES) 
call egual(-I/U*n 2 ,lor,ntimes) 

CALL EGUAL(I*-I/LOX/NTIMES) 

BRA n CH<N4)=BRAnCh(nj5> 

N B R{n=N B R(I)-l 
go TO 26 
CONTINUE 
CONTINUE 
nbR(J ) =0 - 
GO TO 25 

D010I=JN0DE>NN80ES 
IF(KGU).EQ*NG(I + 1))G0 TO 10 
J*NO ( I ) 

KxNTINESM I - 1 ) 

M=NTINES#( 1+99) 


UCLjfi^O 
UCL16440 
UCH6450 
L'^L 16460 
"CL16470 
UCL164S0 
UCH6490 
UCL16500 
UCLlfiSlO 
UCL16520 
UCL16530 
UCL16540 
UCL16550 
UCL 16560 

LOOP CONCERNING TUCL 16570 
UCL16580 
UCL16590 
UCL16600 
UCL16610 
UCL16620 
UCL16630 
UCL16640 
UCL16650 
UCL16660 
UCL16670 
UCL16680 
UCL16690 
UCL16700 
UCL16710 
UCL16720 
UCL16730 
UCL16740 
UCL16750 
UCL16760 
UCLi677o 
UCL16780 
UCL16790 
UCL16800 
UCL16810 
UCL16820 
UCL16830 
UCL16840 
UCL16850 
UCL16860 
UCL16870 
UCL16880 
UCL16890 
UCL 16900 
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WR I TE(6> aolU> BRANCH < J), ( L I NKS ( K+L ) , L INKS ( M+L ) ,L = i,NT IMes ) 

2d F8F?MAT( 1X/8I10) 

10 CONTINUE 
RETU pn 
END 

SUBROUTINE INBIT(I,J,NTlM£S) 

C H»f'9KRENT U»C*L*A» 1967 

C0MMSN/BITS/K(3OOO> 

L* J 

I F ( I »LT * 0) N*99 

M=(NTlMES*( IABS{I )+N) )+l 

IF <NTIM£S*LT«6)M=3q01"'( IABS(NTIMES)*I ) 

IF<J,EQ.O)G0 TO 3 

2 IF<L*U.30)GB TO 1 ' 

UL-30 

N=M+1 
GO TO 2 

1 K(M) =K(M)+(2**L) ” 

5 RETURN 

3 N=M>7 
N = IABS(NTIMES) 

D04L=i/N 

4 K ( M+f ) =0 
G© T9 5 
END 

SUBROUTINE GRAPH 

C H.P»0KRENT U*C*ltA. 19 6 7 

C COMPILES FL0WGRAPH DATA 

COMHeN/OATA/C, AI,R, aL,E/AJ,D,AM0D(2), AV,BM0D(6>/PNT,BLANK 
INTEGER sens 
Integer branch* addr 

INTEGER GeNER/S 

integer TYPE,TYP 

DIMENSION branch [ 200>i ADDR II 00) 

CeMueN/G AG/GAG ( 20 ) , NSEN, sens ( 5o ) 

C0MhBN/BITS/LBITS(3OOO)*dEP(5O,13)*NNOdES, INO pE* XM0D t 648 ) , TYP { SOI 
C0MH0N/CIRCIT/CARD(5O*12)*TYPE(5O)*GENER (50), ORIGIN (50) /TARGET (5 
10 >| INPUT, OUTPUT, me 

C0MM0N/<=ATHS/LPATH(3OO,2),VPATH(3OO),S(3OO),NPATH 
EQUIVALENCE (LBITS(501),BRANCH(1) )/ (LBITS(701),ADDR(1) ) 

NPATH=0 

00 lrO 1=1 , ne 

TYP ( I ) =TYPE ( I ) 

S (NpATH+i ) =0 
VPATH(NPATH+l)=V p ATH(I ) 

IF(DEPU,1)»NE.BLAnK)G0 TO 11 
IF (GENER ( I ) «EQ* 1 )G0 TR 100 

C INSERT PATHS DUE TO IMPEdANceS 

NPATH=NPATh+l 
LPAtH(NPATH*1)=I 
LPATH(NPatH/2)=I+Ne 
if ( type t i ) «fq» i )no to 12 


UCL16910 
UCL1&920 
UCL16930 
UCL16940 
UCL16950 
UCLJ6960 
UCL16970 
UCL16980 
UCL16990 
UCL17000 
UCL.17010 
UCL17020 
UCL17030 
UCL17040 
UCL17050 
UCL17060 
UCL17070 
UCL17080 
UCL17090 
UCL17100 
UCL17110 
UCL17120 
UCL17130 
UCL17140 
UCL17150 
UCL17160 
UCL17170 
UCL17180 
UCL17190 
UCL17200 
UCL17210 
UCL17220 
UCL17230 
UCL 17240 
UCL17250 
UCL17260 
UCL17270 
UCL17280 
UCL 17290 
UCL17300 
UCL17310 
UCL17320 
UCL17330 
UCL17340 
UCL17350 
UCL17360 
UCL17370 
UCL17380 
UCL17390 
UCL17400 
UCL17410 
UCL17A20 
UCL17A30 
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12 


13 


16 

16 

H 


C 

11 


IS 

17 

200 


19 


10 

100 


6 

4 

3 


LPAtH(NPATH>1)=I+NE 

LPATH ( NPATH/ 2 ) = 1 
IF(CAROU/D*NE.R)G0 TO 13 
IF(TYPE( I ) .EQ.DG6 JO 10 
30 TS 1^ 

S(NPaTH)=1 

IFCCARD! I, 1) .NE.AL)G0 T0 15 
IF<TY p E!I)«EQ.l)G0 TO 10 
Ge T g 16 

IF {TYPE! I ) »EQ»O)G0 T8 10 
S(NPaTHI=-S<NPATH) 

VPATH(NPATH) *1 ./VPATHtNPATH ) 

G0 T8 10 

INSERT PATHS DUE TO 

IF(DEP(I>1) •EQ.PNTJGB T9 io 
Dgl7J*l;NE 
LsJ 

DeiSK“lil2 

IF{CARD(J,K).NE.DEP(IjK+1)TG9 T9 17 

CONTINUE 

G8 TD 19 

CONTINUE 

WRITE <6, 200) ( CARD (J , J ) , J, 1/ IE ) 
F0RmaT(1oX-» ***** >,'l2Ai, ! DEPENDS ON N 
1NCY IS IGNORED* *T~ ' 

Go TO 10 
NpATH=NPATH+l 

lpath(Npath/i)=l 

lF(DE p n/l)*EQ.AV)LPATH(NPATH,i)=L+NE 

LPATHINPATH/2)=I 

IF(TYPE!I).E0.1)LPATh<NPATh^ 2)=I+NE 
IF (SENS ( I ) *EQ*0)G8 TO 100 
S ( Np ATH ! =S ( NPATH ) +SENS { I ) 

CONTINUE 

insert current and voltage 

JN0DE= INODE+1 

D^llIJNODE/NNODES 

M = 0 

x=l, 

N= 1 

I j- ( aDDR { I ) »EQ* ADDR ( I+i ) ) G0 T9 1 
LeADDR ( I ) 

IF(8RANCh(L).LT.0)N«-i * ’ 

K= I ABS { BRANCH ( 1, ) ) 

MeM+1 

IF ( M *GE *3 ) GO TO 1 
CALL UNPAk(I*N, j,NE) 

IF(J)3*2.3 

NpATm°NPATH+2 

LPATH< Np ATH-l'2)“K 

LPAtH{NPATH>1)=K+Ne 

LPATH(NPATH-l/l)=U 
VPAtH{NFATH- !)=»><” - 


UCL17A40 

UCL17450 

UCL17460 

UCLI 7 A 7 O 

UCL17A80 

UCL17490 

UCL17500 

UCL17510 

UCL17520 

UCL17530 

UCL17540 

UCL17550 

UCL17S60 

DEPENDENT ELEMENTS UCL17570 

UCL17580 
UCL17590 
UCL 17600 
UCL17610 
UCL17620 
UCL17630 
UCL17640 
UCL17650 
UCL17660 

-EXISTENT ELEMENT, DEPENDEUCL 17670 

UCL17680 
UCL17690 
UCL17700 
UCL17710 
UC117720 
UCL17730 
UCL17740 
UCL 17750 
UCL 17760 
UCL 17770 

RELATIONSHIPS UC11778Q 

UCL17790 

UCL17800 

UCL17810 

UCL17820 

UCL17830 

UCL17840 

UCL17850 

UCL17860 

UCL17870 

UCL17880 

UCL17890 

UCL17900 

UCL17910 

UCL17920 

UCL17930 

UCL17940 

UCL17950 

UCL17960 
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IPATHCNPATH,2) 
VPATHl NPATH) *X 
IF(GENCR(K) »EQ 
S( NpATH-1 ) =0 
S ( NpATH ) =0 
GO T9 A 
N = -N 
X=-f 
GO TO 6 
CONTINUE 

return 

END 

SUBROUTINE LOOPS 
h.p.okrekt 

OBTAINS THE 


J+Nf 

GENER(J) )vPATH(NPATH): 


J.c 

SUM 


»L ♦ A • 
SF 


EACH 


I9fi7 

ORDER OF 


LOOPS 


LOGICAL 

INTEGER 

♦SMAX1C 

integer 


LOGIC ( 3000 ) j LOGIC 1 

SM IN,$MAX*3MIN1* SMAX1* SM IN01, SMaXOI* SM JNOO, SMAXOO* SMI N 10* 
GAS*C®UNT( iQO)* FLAG, S* SENS* 9R0ER 


EXTERNAL L®R»LST9R 
Ce*lM5N/GAG/GAG(2n),NSEN,SENS<5o) 

CpMmhN/PolY/VNOI ( 101,20 ),VNOO( 10 1*20)* VNlO <101* HO >*SMAXOi( 20) > 
*SnI‘ j O1(2O>/SMAXOO<2O)*SMInOO<2o)*SMAX1O(2O)*ShIn10{2O) 

CPMmON/C I PC I T/CARO ( SO* 12)* VN( 101*2 )*NE*SMax*SM1N 
reMMON/SPEED/V ( l.'OO ) * LS (1 000 ) * NLOOP 
CfiMHfjN/NT JMES/NT JMeS 


UCL17970 
UCL17980 
UCL17990 
UCL 18000 
UCL18010 
UCL18020 
UCL18030 
UCL18040 
UCL 18050 
UCL 18060 
UCL18070 
UCL18080 
UCL 18090 
UCL18100 
UCL18110 
UCL18120 
UCL 18130 
UCL18140 
UCL18150 
UCL18160 
UCL18170 
UCL18180 
UCL18190 
UCL18200 
UCL18210 
UCL18220 
UCL18230 


CP'lMfiN/B I TS/LBdP ( 3000 ) * LP ATH ( 300* 2 ) * VPATH ( 300 ) * S ( 300 ) * NPATH* 8R0ER ( UCL 182A0 


1100)* NODE (ICO) 

C8MM8N/FLAG/FLAG 
DIMENSION SMIN( 2 )*S v1 AX<2) 

dimension VM01(202g)* VM00< 2020)* VM1 0(2020) 

DIMENSION VM (202) 

EQUIVALENCE (VN01 ( 1* 1 1 * VMQ1 ( 1 ) ), 

*<VN 0 (1* 1)>VM 0 0(1) >* (VN1 0 ( 1* l)*VMlo< i) > 

EQUIVALENCE (L00°( l)*L0GlC(l ) ),(LB3IC1*M1) 

equivalence (Order ( i >* count t n >* ( vn(i*i>*vm(J) ) 

500 WPITE(6*3C0)LPATM(')PATH*1),LPATH(N D ATH*2) 

000 FaRMAT(/iX* !THE UN<N3WN TRANSMITTANCE G8ES FR0M NBD£i,l3, i 


UCL18250 
UCL1S260 
UCL18270 
UCL18280 
UCL18290 
UCL18300 
UCL18310 
UCLlg320 
UCL18330 
UCL183A0 
TO >*I3)UCL18350 


INITIALISE 

UCL18360 

NN = 2«-NE 

UCL18370 

0921 =1*Nn 

UCL 18380 

NeDE( I 1=0 

UCL18390 

C9Uf]T(I)=0 

UCL 18400 

09101=1*202 

UCL18410 

VN< I , =0* 0 

UCL 18420 

09 99 1=1*2020 

UCL18430 

VMOl ( I )=p.C 

UCL18440 

V“00 ( I ) = o»n 

UCL18450 

vr io ( I ) =o,o 

UCL 18460 

0« 88 1=1*20 

UCL18470 

S"Ax 111 ) =C 

UCL1B480 

SMlNCld )=C 

UCL18490 
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n o 


SMAXOOt I ) - c 
SMllOOft )=0 
SMAX1C<I)=0 
88 SrlNlCt I ) =0 
Ml = o 
M2 = 0 
^3 = 0 
NL‘39P = 0 
D6 9* 1=1/20 
98 VNOo ( 51 / I )="1. 

VM51'1> = 1« 

Sr'AXl 1 )=0 
S"AX(2)=0 
S^IivC 1 > =0 
SMlN ( 2 ) = 0 

c FI n O new MANY TrANSMITTANCES leave node j 

DQIIZI/NPATH 

K=LPATH(I/2> 

NeOE (K > =NpOE< 10 + 1 

U*LPATH( 1/1 ) 

1 ceuNTU>=ceiiNT< j) + t 

68TAIN THE FIRST NODE WITH 0N£ LEAVING 
jpANSMITTANCE 

O03I'1/NPaTH 

J = LPATH( I/D 

IF (COUNT { j)-l )3, A/3 

c FOR m the UNIQUE path 

A DQSJ, 1/NPATH 

iFtLPATHij/cI.NE'L^ATHd/DIGe T8 5 
CALL EOWALtJ/ I /LPR/-NT IMPS) 

VPATHl J) = VP ATh ( J)*VPAT h( 1 ) 

S ( J) =S( J)+S( I ) 

LPATH(J,£)=LPATHtl,2) 

5 CONTINUE 



lpathi i/ 1 j =0 



.. 


3 

CPNJINUE 




BEEN 

C 

STORE ANY L00PS 

that 

MAY 

have 

C 

F8RHED 






0661 = 1 / NPATH 

!F(Lf ATH( 1,1) .NE*LPATH(I,2) )G0 

T6 6 





ML0ep=NLeeP+i 

CALL EfjUAL ( -NLORPj I / LST9R/ -NTIMES ) 
V(N|_06P>=V D ATH( I ) 

Ls<NL0ep)=sm 

JJ=NTIMES«{NLS3P-1) 

WRITE (6/ 999) (L9PP ( 1 1 +JJ) / 1 1 =1/ NT IHES )/LS ( NL00P I 
999 F0RhaT(1X/ 2120/1 X/ 120) 

LPATH(I/1)=0 

6 Continue 

001 11=1 iNPATH 
J=LPATH< 1,1) 

K=LPATHtl/2) 

IF< J. EG. 0)09 T9 13 


UCL18500 
UCL18510 
UCU18520 
UCL1S530 
UCL185A0 
UCL18550 
UCL18560 
UCL18570 
UCL18580 
UCL18590 
UCL18600 
UCL18610 
UCL18620 
UCL18630 
UCL186A0 
UCL18650 
UCL18660 
UCL18670 
UCL18680 
UCL18690 
UCL 18700 
UCL18710 
UCL18720 
UCL18730 
UCL18740 
UCL 18750 
UCL18760 
UCL18770 
UCL 18780 
UCL18790 
UCL18800 
UCL18810 
UCL 18820 
UCL18830 
UCL188A0 
UCL18850 
UCL18860 
UCL18870 
UCL18880 
UCL18890 
UCL18900 
UCL18910 
UCL18920 
UCL18930 
UCL189A0 
UCL18950 
UCL18960 
UCL 18970 
UCL18980 
UCL18990 
UCL19000 
UCL19010 
UCL19020 
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IF<N8DE(J) .EQ.C)LPATH( ul)~0 
13 IF (K«E;Q.O)GB T9 ll 

IF(CftUNT(K> *EQ.O>LPATH( l, 1)*0 

11 C9NTINUE 
CALL CLEAR 

IF (N p ATH.E0*0)Se TQ 27 

c bfCin matching unique paths 

19 1 = 1 

fJROERUM 

12 8R0eR( I+1)=0RDER(1) 

IF ORDER ( 1 ) *6E »NPATH)GB T8 27 
9 8HDeR( I + i)*ORDERU+l)+l 

IF{ 0 RDER(I+ 1 ).LE“NPATH)G 9 T9 8 
1 = 1-1 
G 8 TS 9 

8 IFU.LE.OJG 0 T0 7 

N=9RDER { I ) 

H=9R0ER ! 1+1 ) 

LsNpATH+J 

IF«I.GT.1)N=L-1 

IF(LPATH(N»1) •NF*LPATH(H<2))G6 T0 9 

I1=NTIMES*NL68P 

Ul= 3000 -(NTINES*M) 

K1=3000'(NTIHES*N) 

D9 702MM=l^NTIMES ~ 

702 L0Glr( I1 +MM)=l 8GIC^J1+MH) *AND*LeGIC(Kl+MM) 

Call UNPAFfNLeSP^lTNljNN) 

CALL UN D AK ( NL99P + 1 < N2> NN ) 

call unpak(NL 69 p+i;n 3 /NN) 

IF(L pat H( N '' s1 •NE.LPA_Th(M> 1) )G9 T9 32 
IF (N3*NE»0)G9 T9 9 ~ 

IF{ {LPATH{N/l)»EQ»Nl>»AND»(LPATH(N#2)»E0»NgJ )G0 T9 33 

IF! fLPATH(N^ 1) .E3*N2)*AN0»(LPATH(N=2) .EQ.N1) )G9 TS 33 

G9 T9 5 

33 NL99P=NL99P+1 

CALL EQUAL < -NL99P>N,LSTeR> -NTIHES) 

call equal ( _ nl68p»m.» L9R# -nt i me s ) 

V(Nl 89 PI =vPAT|-i( N ) *VPATh(M) 

> LS f'lL99° ) aS (N )+S (N ) 

JU=NT I NES* (NL99P- 1 ) 

WRITE I 6099 5 (L99P( II+JU)/ 1 1 3 1# NT IMES ) t LS (NL99P) 

G9 T9 9 

32 IF! (K3«NE*0) *B R * (Ns.NEtO) ]G8 T8 9 
IF(Ni.NE.LPATH<N/l))S8 T8 9 
CALL EQUAL H.,N # LST0R/-NTIMES) 

CALL EQUAL(L=H.L8R,-NTIMES) 

VPATH(U=V°ATH(NovPATH(M) 

S(L)=S(N)+S!M) 

LPATk.(L,l)=LPATH<M,l> 

LPATH(L'2)=LPATH(N J 2) 

7 I = I + T 

Q0 T8 13 

C ENTER FIRST 8RDER L88P VALUES 


UCL19030 

UCL190A0 

UCL19050 

UCL19060 

UCL19070 

yCL 19080 

UCL19090 

UCL19100 

UCL19110 

UCU19120 

UCL19130 

UCL19140 

UCL19150 

UCL19160 

UCL19170 

UCL19180 

UCL19190 

UCL1920O 

UCL19210 

UCL19220 

UCL19230 

UCL19240 

UCL19250 

UCL19260 

UCL19270 

UCL19280 

UCL19290 

UCL19300 

UCL19310 

UCH9320 

UCL19330 

UCL19340 

UCL193S0 

UCL19360 

UCL 19370 

UCL19380 

UCL19390 

UCL19400 

UCL19A10 

UCL19A20 

UCL19A30 

UCL19A40 

UCL19450 

UCL19A60 

UCL19470 

UCL19480 

UCL19490 

UCL19500 

UCL19510 

UCL19520 

UCL19530 

UCL19540 

UCL19550 
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n o 


27 00251= 1/NLS9P 

IF(NSEN.EG*0)G9 t - r '80 
J=LS( I ) 

K8=2l-NSEN 
D 0 979 K9=K8>2C 
LeC*21-K9 

I F C J.GT.GAG(LeC) -5OO)G0 TS 998 
CAUL RE0UCE!J, ''.<3) 

IFU2»EQ.2)GB T S-jO 
VN00(K3+5l>L8r )=VM9O(K3+5l#L0C)+V(I > 

SMAXOO ( L9C ) A ',c ( SMAXOO C 1.8C ) t K3 ) 

SMIN 0 C{L 6 C)«_MI ‘9 ( SMINOO ( LBC ) * K 3 ) 

G 0 T9 979 

800 VN01(K3+51*Lec)xVNoi (K3+51A0C ) -V ( I) 

SMAXC 1 1 L 8 C ) =MAXO ( SMAX01 ( L. 8 C ) , K3 ) 
SHlN0l(L8C) 3 MIN0(SMlNOl(LeC)^K3) 

GO T 8 979 
993 vJ*J*GAG<L 0 C) 

CAUL REDUCE tJ/K3jiK2) 

IF(K2*EQ.2>GB T9 SJ9 
VNlO(K3+51iL0C)=VNiO(K3+51/L8C)+V(I ) 
SMAX10(L8C)= , MAX0<S'1AX10 <LBC>jK 3> 
SMINlO(L8C)=MlN!O(S'1lNlO(L0C)iK3) 

979 C 0 NTTNUE 
280 J.LSr I ) 

CALL REDUCE (J>K 3 ^K) 

SMAX(K)=MAX0<SMAX(K)/K9) 

SM I ^ ( K ) =M I NO ( SM I k, ( < ) / K9 ) 
VN(K9+51,K)=VN!K9+51'K)-V(n 
55 CONTINUE 

8BTAIN VIiGHeR 0RDER LOOP VALUES 

s=-t Leap order pointer 

14 1 = 1 

WRITE! 6 * 99C)NL00P 

990 FgRMAT ( 1 N 0 » 0 p FIRST 0 RDER LeePS=',l3) 

ORDER < 1 ) = 1 

17 ORDER ( 1+1 ) =ORDER [ I ) 

C CHECX FOR MORE FIRST 0RDER U80PS 

IF (I .EQ.i) WRITE (6,999 )bRDER( 1 ) 

IF( 0 RDER( 1 ) .GE.NLOOP)RETURN 

16 BRDeR(I+ 1 )=BRDER(I+ 1>+1 

IF { ORDER ( 1+1 ) «LETNLO0P)G0 T0 lg 
1 = 1-1 
Ge je t 6 

la IF(I,LE.0)G8 T0 24 
N = 0RDER( I ) 

HsSrdER! 1+1) 

L=NL08P+I 

IF! I ,GT • 1 )N*L«1' 

I1=NTINES*(L-1) 

J1=NTIMES*<M-1) 

K1=NTIMES*(N-1) 

De;oi«M=l/NTIMES 


UCL19560 
UCL19570 
UCL19580 
UCL19590 
UCL19600 
UCL19610 
UCL19620 
UCL19630 
UCL19640 
UCL19650 
UCL19660 
UCL19670 
UCL19680 
UCL19690 
UCL19700 
UCL19710 
UCL19720 
UCL19730 
UCH9740 
UCL 19750 
UCL19760 
UCL19770 
UCL19780 
UCL19790 
UCL19800 
UCL19810 
UCL19820 
UCL19830 
UCL19840 
UCL19850 
UCL19860 
UCL19870 
UCL19880 
UCL19890 
UCL19900 
UCL19910 
UCL19920 
UCUJ9930 
UCL19940 
UCL19950 
UCL19960 
UCL19970 
UCL19980 
UCL19990 
UCL20000 
UCL20010 
UCL20020 
UCL20030 
UCL20040 
UCL20050 
UCL20060 
UCL20070 
UCL20080 
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U9GlCl=LeGlC( Jl+^M).AND.L9eiC(Kl+MM) 

IF( w l. k ^.0>e9 T9 it, 

C r TER ThF L98P 8F ORDER I + l 

701 L65lC< I1+^M)=L3GIC(J1+MM) ,0R.LO3IC(K1+MM) 

V (L ) cV ( M ) *V(M) 

LStU) =L < 3(N )+LS ( M ) 
lEINSEt .EQ.05G9 T9 221 
J=LSr L ) 

Kg=21«t SEW 
03 7*39 «3 = ><S/20 
LeC=21-X9 

'IF(J.GT.GA'3<L3C> -500)39 T8 798 

call reduce: J/<3/«2) 

ipf^.Ea.pjsa to sso 

VV00(K3+51/LfiC)=VN90(K3+51*L9C)-< V(L>*{ (-1 )»*( I+i> > > 
SW\x0C(L8C)=MAxC(S v AX00(LeC),K3) 

St' I N0C(LSC ) a MlNQ (S m IN00 (LOC ) ,K3 ) 

09 T9 799 

SBO Vf,Ol (K3 + 51 jL 9C) =VM3l tK3+51.» L8C j + ( V { L ) *< < '1 ) *»( I +1 >) ) 
SrAxOHL8C)=t1AxO(S9AX01(L8C),l<;3) 
St'lM3l(LaC)=MlNJo(S'IINOl(L0C)>K3) 

G9 TO 799 

798 J = J-GA.S(LRC) 

call REDUCE ) 

IF (K2*E9.2)G9 T9 7^9 

VMQfi<3+51/L0C>=VNlO{K3+51/L0Ci-(V(L>*( ( «1 ) **( I + l > ) ) 

St Ax10(L6C)=MAX0(S' , (AX10(L8C)jK3) 
st'iwio(Lec)=MrJo(S"!jNio(Lec)/K3) 

799 CONTINUE 
281 J = LS*U 

call reduce :j, so, k> 

St' AX ( y ) *MAXO ( S*IAX ( X ) * K9 > 

SMIM ( K ) = MIN0 ( StiJN ( < ) >K9 ) 

VN(K3+bl,K)=VN'0<9+51/S<) + ( VCL )*( < -1 ) **< I +1 ) ) ) 

24 I = I + i 

Q9 TO 17 
EO 

SUBROUTINE CLEAR 

C H.F.3KPENT U.C.L.A. 1967 

INTEGERS 

Ce'1'if‘N/3IT3/Le0P(3oOO)/LPATH(3oO'2>/VPATH(3ooWS(3OO)> kJ PATH 
EXTERNAL L8T8R 
C0^6N/\!T I ''ES/NTT t*ES 
NsO 

D81I = IjWPaTH 

IF(L p ATrI(Ii 1) .L3.05G8 TO 1 
N=N + 1 

LPATH(N/1)*LPATH(I,1> 

LPATH(N»g) =LPATHf 1,2) 

call e°ual in, IjLStor/.ntimes) 

VF A JH ( t )=VPATH( I ) 

S(V)»S(I) 

1 CONTINUE 


UCL20090 

UCL20100 

UCL20110 

UCL20120 

UCL20130 

UCL2O1A0 

UCL20150 

UCL20160 

UCL20170 

UCL20180 

UCL20190 

UCL20200 

UCL20210 

UCL20220 

UCL20230 

UCU20240 

UCL20250 

UCL20260 

UCL20270 

UCU20280 

UCL20290 

UCL20300 

UCL20310 

UCL20320 

UCL20330 

UCL20340 

UCL20350 

UCL20360 

UCL20370 

UCL20380 

UCL20390 

UCL20400 

UCL20410 

UCL20420 

UCL20430 

UCL20440 

UCL20450 

UCL20460 

UCL20470 

UCL20480 

UCL20490 

UCL20500 

UCL20510 

UCL20520 

UCL20530 

UCL20540 

UCL20550 

UCL20560 

UCL20570 

UCL20580 

UCL20590 

UCL20600 

UCL20610 
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on n o non 


c 


npath=n 

RETURN 

EN'y 

SUGRQUTINE REDUCE (I/J>K) 

S, GRAND I U.C.L.A. 1969 
INTEGER TAG 

CGMiI^N/GaG/TAG ( 20 ) i NSEN* SENS { 5q ) 

K«1 

J=I 

IFd)SEN.£g.0)G9 TO 2 

M=2l-NSEN 

D6 i L-M,,20 

IF( J*GT.TA3(21-l)-500) J=J-TAG(21-L) 

1 CONTINUE 

2 IF(J,LT.500)RETUPN 

j=j-icoo 

Ks2 

RETURN 

END 

Su3r 6UTINE MULT(A,a <l C J NMlNA,NMAXA^NMINB / NMAXB) 
S* GRANDI U.C.L.A. 1969 
MULTIPLIES TWS DSLY'JBMIALS 
DINENSI0N A(101),8(101)/C(101) 

HERS ANSWER 
09 1 I»1<1C1 

1 C ( I ) =0 -0 

LIMITS eE MULTIPLICATION 
I!ilNA=l' MJNA+51 
IMAXA=NMAXA+51 
IMI,^S=mninB+51 
IMAxB=N^ax3+51 

Multiply 

09 2 i = i m i •ja, imaxa 
09 2 J=IMINB, IMAXB 

2 C(I+J-51)=CU+J-5l)+AU)*B(J) 

RETURN 

FNO \ 

SUBROUTINE sensc 

R, GRAND I U.C.L.A. 1969 
FORMS the sfvsi ti vity functions 


UCL20620 

UCL20630 

UCL20640 

UCL20650 

UCL20660 

UCL20670 

UCL20680 

UCL20690 

UCL20700 

UCL2Q710 

UCL20720 

UCL20730 

UCLP0740 

UCL2Q750 

UCL20760 

UCL20770 

UCL20780 

UCL2Q79Q 

UCL20800 

UCL20810 

UCL20820 

UCL20830 

UCL20840 

UCL20850 

UCL20860 

UCL20870 

UCL20880 

UCL20890 

UCL20900 

UCL20910 

UCL20920 

UCL20930 

UCL209^0 

UCL20950 

UCU2Q960 

UCL20970 

UCL20980 

UCL20990 

UCL21000 

UCL21010 


INTFGEP SACiSENS UCL210H0 

INTEGEP SMIN/SMaX/SMINI/SMAXIa&MINOI^SMaXoI/SMINOO/SMAXoO/SMJNIOa UCL21030 
♦SNAxTO UCL21040 

DIMeNSIO- SMIN( 2 ) # SMAX(2) UCL21050 

DIMENSION GdClf SHOD UCL21060 

C9MH0 N/3AG/G AG ( 20 ) , mSEN/ SENS ( 50 ) UCL21 070 

C6Mvi9N/BIT3/VNSeN(101<2a20)^SMax1(20)>SMIN1(25) UCL21080 

ce^Mf-N/ReLY/vNcmoiASoj^vNoodoijEoj/VNioaoij-PoJASMAxoKao)^ ucu2io9o 
*SMIn01<2O). s MAXoC(?O)jSMiNOO<2o>.SMaX1O(2o)/SMIN10<HO) UCL2110O 

C9MM«f/CIf?ClT/CA'0(50d2)/VNd01^2)^ NE/SMAX/SMIN UCL21110 

DP 3 '5 U = i'NF UCL21 120 

IF (GE^'S ( 1 1 ) »E0«0)G9 TO 3o5 UCL21130 

00 3 7 j6 II=1<NSeN UCL21140 
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IF<SENSlfi>'*EQ.GA(3(I I ) > G© TO 307 

306 continue 

CPECK F0R 'ZERO VN01 

307 oe 701 1=1/101 

IFIVNCI ( 1/ II ) •NE*0»0>29 TO 710 

701 CONTINUE . _ 

G8 TS" 720 

NON ZERO VN01 

710 CALL MULT ( VN( i, j, fj VNOK 1/ II )»G/SMIN ( i )/SMAX ( U/SMINqK ID/ 
*SMAX01 ( I I ) ) 

CALL NULT(VN<1,2^VN00<1,II)>B,SM1N<S)>SMAX(2),SMIN00<TI), 
«SKAxOO(II>> _ _ . . 

00 702 1=1/101 

702 VNSeN (1/2/ II ) =G ( 1 )+8(I ) 

CALL MULT(VN( l,i)/VN(l/2)/VNSEN(l/l/II )/SMIN(i),SMAX(l)/SHI 
*SMAX(2>> 

SMINKIJ ) = M tNO(SM [N ( 1 l+SMIN ( 2 ) /SMIN( l)+SMINoi(II)/SMIN(2)+ 
*SMJN00(II ) ) 

SMAXl<n>*MAX0<SMAX(l)+SMAX(2),SMAX(l)+SMAX01(lI )>SMAX(2)+ 
•suAxoon i j ) 

GO TO 800 
ZfRS VNOl 

720 oe 7C>3 1 = 1/101 

VNSEN ( I / 2/ 1 1 ) iVNOO { I / I I ) 

703 VNSEN U/l/lD = VN( I / 1 ) 

SHIN1 ( 1 1 ) =MIN0 (S^INOCI II I/SMIN ( 1 ) ) 

SMAX1 < I T ) =MAX0(SMAX00( 1 1 ) /SMAX{ 1 ) ) 

call answer t vnsen ti> i> n )/S maxkii J/sminm ii > 7 i i > 

CONTINUE 

RETURN 

END 

SUBROUTINE ANSWER (VN/SNAX/SMINj ITAG) 

DAVID PALETZ U.c-L.A. 1367 

DIMENSION VN( 101/2) 

C0Mm8N/CIPCIT/CARD(5O/12) 

CPHN0N/SPEED/NEXPS ( 1 00/ 2 ) / AS { loO/ 2 ) / AS I GN ( 1 00/ 2 ) / Ll NE ( 132 ) / 
131/ JUNKI119) 

integer blank, snax,sn in, a sign, plus, minus, as, line 
COMmfiN'/OATAXAM9D ( 1 3 ) , NS/ BM5D (5 ) / BLANK, PLUS, MINUS 
ceMieN/x/iDEC(io> 

C0M^9N/B I TS/Fl ! 4096 ) / VM ( 101/2) 

D81I pi/ 100 
AS ( 1/ 1)*NS 
AS ( I , 2 ) =NS 


800 

305 


L*5l+SMIN 
K=SMaX-SMIN+i 
SKl p A PAGE 


AND WRITE HEADING 



ifutag. 

> Eq» 

201 

FORMAT ( ' 

' 1 '/ 


IF ( I TAG, 

-EQ. 

220 

FORMAT ( ! 

1 1 '/ 


I F < ITAG, 

-GT. 


'TRANSFER FUNCTION i// ) 

■1 ) WRITE I 6/220) 

'SGUARE OF WORST CASE TOLERANCE > //) 


UCL21150 
UCL2U60 
UCL2U70 
UCU21180 
UCL21190 
UCL21200 
UCL21210 
UCL21220 
UCL21230 
UCL21 240 
UCL21250 
UCL21260 
UCL21270 
UCL21280 
M ( 2 ) / UCL21290 

UCL21300 
UCL21310 
UCL21320 
UCL21330 
UCL21340 
UCL21350 
UCL21360 
UCL21370 
UCL21380 
UCL21390 
UCL21400 
UCL21410 
UCL21420 
UCL21430 
UCL21440 
UCL21450 
UCL21460 
UCL21470 
UCL21480 
UCL21490 
NUM(50,uCl21500 
UCL21510 
UCL21520 
UCL21530 
UCL21540 
UCL21550 
UCL21560 
UCL21570 
UCL21580 
UCL21590 
UCL21600 
UCL21610 
UCL21620 
UCL21630 
UCL21&40 
UCL21650 
UCL21660 
UCL21670 



210 reRMATf tl >, 'SENSITIVITY TO !/1 hA1//> 

c setting the numerator if j=a and the denominator when 

J=2 

C FAN IS THE NUMERATOR FACTOR/ FAD IS THE DENOMINATOR FACTOR 

11 KK=5l+SMAy 

3 1F(VN(KK,J) .NE*0*)SS T8 7 

G6 TO 3 

7 IFt J.ET*2)FAN=VN(KK/ J) 

IFf J.E3.1 )FAD=VN(K</ J) 

Dp2 1 = 1/ K 
ASlG. (1/ J)= p LUS 
NEXPSi I< J)*I”1 
VM( I / J J = VN (L/ J) 

IF I J,ER.2.AND.VM( i/j) .NE.OJVMU/ J)*.VKI< J)/FaN 
IF1J.ES. 2. And* ITAG.nE.O.AnO.VM( 1/ J) .nE.O)VM( I, j)c-V w ( 1/ J) 

1F( j. En. i ) VM( 1/ j) =VM( I j JI/FAD 
JF(VM( 1/ J) )A/6/5 
A VM( I,J) = -VMU/J) 

ASlGNi 1/ J)=MINUS 
GO TO 5 

6 NEXPS ! I / J ) =C 
AS ( i;j)=BLANK 
5 L=L+1 
2 CONTINUE 

IF(ASIGN< 1/ J) .EO.PLUSIASlGNi 1/ J) =BLANK 
ASi 1/J)=BLANK 
DO 4C K»l/K 

IF f NEXPS (N/ J) .GE. 10) GO TO 41 

LEXPS = NEx p S(N/J) 4 .l 
NU v '(N>3) = IDEC<LEXP3 ) 

iFiLFXPS .EG. 1 ,0R. LEXPS .FQ, 2) HUM t N# 3 ) =BLANK 
NUM(N>2)=BLANK 
NUM(N/1 )=BLANF 
GO Te AO 

41 IF ( N'fXPS ( N/ J ) .GE* 100) GO TO ^2 
IARG=NEXPS(N, J)/10 
LEXPS=NEXPS(N/ j)-io»IARG 

Nl/M( 3) = JDEC (LFEPS+l ) 

NU M ( F / 2 ) = I DEC ( I ARG + l) 

NUM(N/1)=8LANK 
GO TO 4C 

42 IARG,NEXPS(N/J)/100 
LEXPS=MEXPS(N/J) -loo*I ARG 
lexpsi=lexpo/ig 

LEXPS2=LEX p S- 10*-LEXPS1 
MUM { r '/ 3 ) = I DEC { LEXP ^2+1 ) 

PUM{ N/2) = I DEC ( LEXPs 1+1 ) 

NUM( ^/1)=iOEC( IafG+1 ) 

40 continue 
NBE3*1 

g NEND=NPEG+7 

TF(NrND»GE*K)P0 TA g 


UCL21680 

J=lUCL2i690 

UCL21700 

UCL21710 

UCL21720 

UCL21730 

UCL21740 

UCL21750 

UCL21760 

UCL21770 

UCL21780 

UCL21790 

UCL21800 

UCL21810 

UCL21820 

UCL21830 

UCL21840 

UCL21850 

UCL21860 

UCL21870 

UCU21880 

UCL21890 

UCL21900 

UCL21910 

UCL21920 

UCL21930 

UCL21940 

UCL21950 

UCU21960 

UCL21970 

UCL21980 

UCL2199C 

UCL22000 

UCL22010 

UCL22020 

UCL22030 

UCL22040 

UCL22050 

UCL22060 

UCL22070 

UCL22080 

UCU22090 

UCL221O0 

UCL22110 

UCL22120 

UCL22130 

UCU22140 

UCU22150 

UCL22160 

UCL22170 

UCLH2180 

UCL22190 

UCL22200 


A-42 



o o n n 


WRITE <6, 2.02) ( (t-'UMt ',1 ), I=l,3>/MnNBEG,NEND) 

202 F0RmAT<1I-iO/8<11X/3A1) ) 

WR I TE ( ‘ • ?0'» > < ( AS I G\ ( t / J ) , ( T / J ) / AS ( 1 , J ) ) , I =NBEG, NEND ) 

SO 1 * F'OR'iATUH ,S( Al, iPElO.3* A1/2X) ) 

') R E3 = 1 ‘ a EG+S 
39 TO R 
9 JENO„K 

WRITE (6/202) ( (NU N U v ij I)/ I=l/3)/M=NBEG/NEND) 

/"? I TF ( b> SO 1 * ! f ( AS t GN (I , J ) , VM ( I , j ) / AS (I , J ) ),l =NBEG, NEND ) 
IF( J.E3.1 (GO TO 10 
C WRITING the DIVISION line 
!F(K,GE.S)GS TS 13 
LEND=k 
39 TO l 1 * 

13 LFNo'8 

14 LT9T*L=LEND*U 

oe 1=1 1 = 1/132 

13 LINE (I >=BLANK 

09 16 I=1/LT0TAL 
16 LINE(I>=NINUS 

write (6/ 203) <LINE( I )/ I=1/LT0TAL ) 

203 F0RnaT(/132A1/) 

L=51+SMIn 

KsSmAX-SHIN+I 

J=1 

G9 TO 11 

C FACT IS THE FUNCTION FACTOR 

10 FACT=EAN/FAD 

WRITc (6/2C-0FACT 

so? Format < // * the function factor ='/3X/1Peio*3///) 

WR!tE!6/209)VK' 

209 FeR-*AT(lX/ 1P1CE13.5) 
retjrn 
end 

SUBROUTINE UORSTC 

S* GRANOI U.C.L»A* 1969 
CALCULATES 'worst case tolerance 

integer SE s .S,S j, AX2,SMIN2,SMaX1,SNINi,SNIN,SMax 
CPM^qM/WORST 1/ 'iW RST/VW(ioi/2)/T9L(5o)>SNAX2/SMIN2 
CPN'/tjF /GaG/GAG ( 20) /NSEN/ SENS (50) 

C91n9N/bitS/VNSE h ( 101/2/20)/SrtAXl(20)/SNlNl (20) 

C3N^'N/ClRCIT/CARD(bO/12)/VN(101/2)/NE/SNAX/SHIN 
D]N£KSJ3N VW6R,<N,1 t1 )/ VW 1(101)/ VW2 (101 )/SMIN(2),SDAX(2) 
C P ITIALI2E 

U = S”IN(l)+5l 
I2=SNAX(1 ) +51 
NoCn=C 

naxi=o 

NJ\1 sC 
naXjsC 
^IN?=C 


UCL22210 
UCL22220 
UCL22230 
UCL22240 
UCL22250 
UCL22260 
UCL22270 
UCL22280 
UCL22290 
UCL22300 
UCL22310 
UCL22320 
UCL22330 
ucLaas^o 
UCL22350 
UCL22360 
UCL22370 
UCL22380 
UCL22390 
UCL22400 
UCL22410 
UCL22420 
UCL22430 
UCL22440 
UCL22450 
UCL22460 
UCL22470 
UCL22480 
UCL22490 
UCL22500 
UCL22510 
UCL22520 
UCL22530 
UCL22540 
UCL22550 
UCL22560 
UCL22S70 
UCL225S0 
UCL22590 
UCL22600 
UCL22610 
UCL226H0 
UCL22630 
UCL22640 
UCL22650 
UCL22660 
UCL2267 0 
UCL22680 
UCL22690 
UCL22700 
UCL22710 
UCL22720 
UCL22730 
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c 


c 


c 


c 


c 


c 


c 

c 


DO 1 I=1/1C1 
V'a 1 ( I > =0 . 0 
VW2 ( I ) =0«0 
V!« ( I,1)=0*0 
1 VW(I/2>=0*0 

OBTAIN SENSITIVITY SENSITIVITY FCNS FOR ALL VALID ELEMENTS 
NSEnI'O 
DO 10 K=1/NE 
IF(SENS(K) .EQ.0)fi9 TO 10 
S«UARc THE TOLERANCE 
T0L1=T9L(K)*T6L(K) 

NSEni=NSeni+1 

SQUARE SENSITIVITY function 
call ^ult(Vnsen[ i/?/Nseni )>vnsen< i^/Nsend^vnorkn, 

• SKIMIISenUjSMAXKNSENI J^SMINknSEND/SMaxKK'SEMI J ) 

NnM I *SM I Ml ( NSfNl > +SMI Nl I NSEN1 ) 
NKMax=?Max1(NSEN1)4SMAX1(NSEN1) 

LsBl+NN^IN 
M = bl+NN V, AX 

FIND TYPE of DE.\oM 
J1=NINC(SMIN1(NSENJ)+51/I1) 

J£=^AX0(SMAX1{NSEN* J+51/II) 

DO 20 J = Jj./J2 

I F { V I J» 1 ) »NE • VNSENI J/ 1/NSENl ) )G0 To 21 

20 CONTINUE 

DtN'OM same as transfer FUNCTION 
DO 11 J=L,M 

11 VW1( J)=>VU1( J)+TRLl*VWORKN(J) 

-' , AX1 = MAX0(MAX1jNNMAX) 

MIN1,MIN0<MIN1/NNMIN) 

go TO 10 

DfNSM not sane as transfer FCN 

21 IF(NDFN,^e.1)NDEN=i 
DP 1? J=L/M 

12 VW2(J)=VW2(J>+TOL1*VW0RKN(J> 
maX2=MaX0(NAX2/NNNAX ) 

M I Nl»«M I No ( .1 1 Np/ NNM J N ) 

10 CONTINUE 

get FUNCTION 
ifinoem.fo.oigo to 30 
both types PRfSeNT 


UCL227A0 

UCL22750 

UCL22760 

UCL22770 

UCL22780 

UCL22790 

UCL22800 

UCL22810 

UCL22820 

UCL22830 

UCL22840 

UCL22850 

UCL22860 

UCL22870 

UCL22880 

UCL22890 

UCL22900 

UCL22910 

UCL22920 

UCL22930 

UCL22940 

UCL22950 

UCL22960 

UCL22970 

UCL22980 

UCL22990 

UCL23000 

UCL23010 

UCL23020 

UCL23030 

UCL23040 

UCL23050 

UCL23060 

UCL23070 

UCL23080 

UCL23090 

UCL23100 

UCL23110 

UCL23120 

UCL23130 

UCL23140 


CALL m ULT(VN(1,2)>VN(1,H),VW0rkN/SMIN( 2)^SMAX(2)/SMIN(2)^SMAX(2) ) UCL23150 
Ni=sMINl2)+SNlN(2) - UCL23160 

N2=SMAX ( 2 ) +SM AX ( 2 ) UCL23170 

CALL m ULT( VI i^ VWORxN/ VW ( f/2 ) 'MiNi/MAXiaN1<N2J UCL23i80 

Dg 31 1=1/101 UCL23190 

31 VW( 1/2) =VW< 1/ 2 )+VW?{ I ) UCL23200 

CALL MULTI VM 1/ 1 j/VN( 1/2 )/ VVJORkN /SMINIi ),SMax(1]/SMIN(2)/SMAX(2) )UCL23210 
SSIN2*SN im ( 1 ) +SNJN (2 ) UCL23220 

SMAX2=SNAX(1)+SMAX(2) UCL23230 

Call MULt I vVIORXN, V'aORKN/ vW ( 1/ 1 ) / SM I N2/ SMAx2/ SM IN2/ SMAX2 ) UCL23240 

SHINSsS-Sinf+SMINs UCL23250 

SMAX2=SNaX2+SMAX2 UCL23260 
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9p tB 100 

FIRST TYPE only 
30 09 40 1=1/ 101 
40 VI- 1 ( I / 2) =VW1 ( I ) 

OLL Mt'LT ( VN( i, i ) / VM 1 # 1 > * VW ( 1, 1 > j S* ! N < 1 > / SM AX < 1 > * SM I N ( i ) , SMAX ( 1 > 

Sf'I'J2 = S'nM< l)+SHfN(l ) 

SMAX2*S^AX{1)+SMAX(1) 

find min and max powers OF VW 

do 5u 1=1/101 

lF<VMI/2) .NE. 0.0)36 TQ 5l 
CONTINUE 
SB T0 99 

l=i-si 

SWI'42'NINOCSNINP/L) 

DO 92 J=1/1C1 
I=102’J 

IF ( VN (1/2) •NE»0*0)90 TO 53 
continue 
U=I-51 

3MAX2*MAX0 (SMAX2/L) 

RETURN 
END 

subroutine invert 

A, r, tYRRILL/ UCLA, 6/21/65 
COMPLEX Z/CA(50),Cs<50)/G1/G2 
DI IEnSIbn FCTn(512)/TEE(512)/Ph(512) 

CSMM0N/SPEED/F2 ( 2048 ) 

CeNMBN/ 1 ? ITS/FI ( 4096 )/B(5o)/C (So) ^NXFR,A( 5o )/NXTI/STEPiTBTEE/ 
ANTYOR/ AMP1 , AMP2,FR2Q1,FPEQ2/ NPL0T/ 

INU'IFr/NUNT I/NF ( 1 1 ) ,NR( 11 ) / MOR/ “iOrN JM, NTA^/ ISnJ SCMAOjSCFrEQ/ SIGMA/ 
2T1,T?/T3,D M 9D(6) ,Ai?SC/9R0 

EGUIVALENCF (F?( iJ/FCTNU) )/ {F 2(513)/TEE(1))/ (F2< 19251/CA < 1 ))/ 
1(F2{ 1125)/C3( 1 ) ) » (F2(1225>/PH(i ) ) 

DATA FREQ/ AMAG/PHAr T IN/ • pREO ' / iMAG ','PhA '/»TIME'/ 

112 FBR-iAT (///// lnX/ >■»*** NeT RATIONAL/ CANNOT INVERT.’) 

115 FpRlAT (///// 10X, ***** TOO SIMPLE. DP BY HAND,') 

EX/ ’tH £ TRANSFORM, 9F t«E RESPONSE IS --»* // 20X/ 

6 X/ 


100 


50 


51 


52 

53 

99 


120 FBR^/T (//// 

2'EXP. OF S'/ 

6 X/ 

121 FORMAT (?3X, 12, 3X, 1P2E20.5) 
12 FBRMATt '0'/22X/ '+ '/1P2E20.5I 

14 foRiat<//ioX/ '**## the Plot is 
* 9NLY r ) 


116 


•NUMER, CQEFFs,'/ 6X/ 'DeNOM, C0EFFS. ' / 20 X, 


■'/ 6 X/ '■ 


) 


OF THE N 0 N- CONSTANT REMAINDER term 


UCL23270 

UCL23280 

UCL23290 

UCL23300 

)UCL233lo 

UCL23320 

UCL23330 

UCL23340 

UCL23350 

UCL23360 

UCL23370 

UCL23380 

UCL23390 

UCL23400 

UCL23410 

UCL23420 

UCL23430 

UCL23440 

UCL23450 

UCL23460 

UCL23470 

UCL23480 

UCL23490 

UCL23500 

UCL23510 

UCL23520 

UCL23530 

UCL23540 

UCL23550 

UCL23560 

UCL23570 

UCL23580 

UCL23590 

UCL23600 

UCL23610 

UCL23620 

UCL23630 

UCL23640 

UCL23650 

UCL2366Q 

UCL23670 

UCL23680 

UCL23690 


NFLA0=O 


UCL23700 

IF (STEP ,LE, 0.0) 

STEP *1.0 

UCL23710 

SqPrEG * STEP 


UCL23720 

NF(H = 1 


UCL23730 

09 116 I = 2/ 11 


UCL2374Q 

Np ( I ) = 2*NP( I - 1 ) 


UCL23750 

IMS = TOTEE/STEP 


UCL23760 

IF { I NTS ,LT. 10) 

I NTS 3 10 

UCL23770 

0° 117 I = 1/ 10 


UCL23780 

IF (f'F(I) - I NTS) 

117/ 118/ H8 

UCL23790 
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117 

113 

119 


CQNtINUE 

I = to 

NXTI => 
NXFR = 

De 119 
nr( h 

NJUMFR 


1 - 1 
I + 1 

I = 1, NXFR 
NFtNXFP + 1 
2»NR ( 1 ) 


I) 


123 

123 


12V 

125 


110 

10 

11 

111 

126 

13 

113 

127 


NU M TI = NR(2> 

1 F(NT Y P£«LT*6)CAIL INPUT 
DO 122 I = 1) 50 
IF tB £51- 1 ) 1 123/ 122/ 123 

ce^Ti^JE 

M0R = 51 - I 
D8 12V I = 1/ 50 _ 

IF (A (51-1 ) ) 125/ 12V/ 125 
CONTINUE 

MQRnUN = 51-1 

Mq-lAX = ;tAX0{M3R/ i'SRNU-V) 

IP ( ^eR-M0RNUH> 110/ 10/ 111 
IFfMVPE.GT.5)20 T6 111 
WRITE (6/112) 

RETURN 

IF(NTVPE.GT-5)G0 to 111 
CSNST-A ( N iPP )/E(F9R) 
M8 RNUH= y 0RNUM-1 

06 11 I = 1/M6RNUN 
A(I)=A{!)-CQNST*B<n 
A(MoR) =o-o 
nflag=i 
VJrITE {6/ 120) 

09 126 I = 1/ MRMAX 
J = I - 1 

WRITE (6> l2l) J/ All)/ Btl) 

IP (MFLAG .NE < 1 ) G5 T0 13 
'IrITE(6/ 12)C6NST 
WRITE (6/ IV) 

IFtNTTPE*GT<5)Ge T=) 1 

ip { M9R - H) 113/ 113/ 127 

WpITE (6/ 115) 

return 

ABSClTn 

ORD=AMAj 

Caul scale 
caul rsuth 
caul sample 
caul flip 
Call adjust 

return „ , 

h.e*0<rent u*c.l*a* 

1F(M y PE*NE*9)G3 ~9 6 
WgMj I = ( FREQ2-FREG1 ) /STEP 
2=CmPLX{FrE31/O-C0) 

06 T6 7 


1969 


UCL23SO0 

UCL23810 

UCL23820 

UCL23S30 

UCL23840 

JCL23850 

UCL23860 

UCL23870 

UCL23880 

UCL23890 

UCL23900 

IJCL23910 

UCL23920 

UCL23930 

UCL239V0 

UCL23950 

UCL23960 

UCL23970 

UCL23980 

UCL23990 

UCL2V000 

UCL2V010 

UCL24020 

UCL2V030 

UCL24040 

UCL2V050 

UCL2V060 

UCL2V070 

UCL2V080 

UCL2V090 

UCL24100 

UCL24110 

UCL2V130 

UCL2V130 

IJCL2V 1 VO 

UCL2V150 

UCL2V160 

UCL2V170 

UCL2V 180 

UCL2V190 

UCL2V200 

UCL2V210 

UCL24220 

UCL2V230 

UCL2V2V0 

UCL2V250 

UCL2V260 

UCL24270 

UCL24280 

UCL24285 

UCL24286 

UCL24287 

UCL24288 
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6 JU K iTl=AL&GlC(ARr(F^E,a2/FREai ) ) /ALSG 10 < ABS ( STEP ) ) 
Z.CMFL'<to.EO,6.?S32«FPEQi ) 

7 IF('<I PTI,GT.bl2)NU M Tl“512 
Ir(f .jMTI »|_E *01* I'MT I =1CG 
0O2J=1aMRMAX 

KsMphAX- J+l 

CA(<)=CMPLX(Af J),0.E0) 

2 CB(K)*CMPLX(B< J)»0.E0) 

00 A I = t / \'U M T I 
Gls(C*CO/0*E0) 

0?=(C*F0>C)*E0) 

Ks^pMAX-l 


0e3J=i*K 
Gi=(C,l+CA(J> )*Z 

3 G2»<?2+CB(J> >«Z 
31=G1+CA(MR^AX) 

32=G? + C3(MRrtAX) 

Gi»Gl/G2 

IF(MTVPE.^E*9)G3 T0 3 

TEE< D=REAL(Z) 

fcta <n=REAUcn 

Z=CMPLy ( FREQ1 + { STEP* I ) y 0.E0 ) 

gp t; 't 

8 TEE< I)=AIKAG(7)/6.R832 

FCTM<I)=&QRT( (rtAL(Gl)**2)+( 4lMAG(Sl)**2>> 

I F (MTVPr.EOf B)FCTN( I ) =SQ rT (FCTM ( I > ) 

PM I ,=ATAN2< A IMAG( SI)/ REAL(Gl) ) *57. 2958 
Z=CMPLXt0.E0>6.2^3a*FRE3l*tSTEP**I ) ) 

4 continue 

AR3C=F~FG 

OROsAYAj 

call pptplt 
if intype .ge*8 (return 

OpDsPPa 

5 FCT.J(I)=FH(I) 

call pptlt 

RETijRP 

end 

SUBROUTINE INPUT 

C A. R. tYPPIIL^ UCLa, 6/21/68 

COMMON/BITS/Fl < aC06) B < 50 ) .» C ( 50 ) a NXFR, A ( 50 > /NXT I., STEP, T0TEE> 
AuTYpE,. AMP i,AMP2,rRCQl,FREQc<NPLeT/ 

JHIJMFRj (> UP T I a NF ( 1 1 ) , MR ( 1 1 ) jM0R# M8RNUM, NTaY, I SN^ SCM AG, SCFR£q,S I GMA, 
2T Tp* T3,0 M 9B ( 6) ^ ASSC/9R0 
310 FORMAT ( 1 H 1 j 10X, 'SPECIFIED INPUT IS — 

316 FPR"AT (2C*a 'IMPULSE/ STRENGTH = <j 1PE12-5) . 

317 F pRy AT ( ?0 ^a ' STEP > MAGNITUDE = '/ 1PE12.5) 

31? FORMAT (ac x A 'EXPONENTIAL, MAGNITUDE = 'a 1PEi2»5a 5X, 'COEFF, » 


Zj lPfl?«5) 

319 FeR^AT (2 0 X/ 'SINE, MAGNITUDE » 'j 1PE12*5a 
r 1 P E \ c • 5.i 1 H2 • * \ 

3?1 FPRiAT { 2r ,X, 'FINITE P ULSE/ MAGNITUDE = 


5X, 'FREQUENCY = *» 
1PE12.5, 5X, 'DURATION 


UCL24290 

UCL24295 

UCL24300 

UCL24310 

UCL24330 

UCL24340 

UCL24350 

UCL24360 

UCL24370 

UCL24380 

UCL24390 

UCL24400 

UCL24410 

UCL24420 

UCL‘24430 

UCL24440 

UCL24450 

UCL24460 

UCL24461 

UCL24462 

UCL24463 

UCL24464 

UCL24465 

UCL24470 

UCL24480 

UCL24490 

UCL24500 

UCL24510 

UCL24515 

UCL24520 

UCL24530 

UCL24540 

UCL24550 

UCL24560 

UCL24570 

UCL24580 

UCL24590 

UCL24600 

UCL24610 

UCL24620 

UCL24630 

UCL24640 

UCL24650 

UCL24660 

UCL24670 

UCL24680 

UCL24690 

UCL24700 

'UCL24710 

UCL24720 

UCL24730 

UCL24740 

UCL24750 
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2= 1PE12.5/ ' SEC*') 

322 FORMAT (20X/ ' D L,LSE TRA I eg/ WAVELENGTH = '/ 
2 1 PULSE DURATION = t, 1PE12*5/ ' SEC. t/33X, 
35/ l.'X, i BACKGRSUNO = '/ 1PE12.5) 

WRITE <6/ 310) 

60 TS (311/ 312/ 3^3/ 314/ 315)/ NTYPE 
WRITE (6/ 316) AMPi 
G0 T9 320 

311 WRITE <6/ 317) AMPi 
69 T8 320 

312 WRITE (6/ 318) AMPi/ FREQI 
60 T9 320 

313 WRITE <6/ 319) AMPi, FREQ1 
69 T9 320 

314 Write (6/ 32l) AMPi, FrEQI 
60 TS 320 

315 WRITE (6/ 322) FREGl, FREQ2/ AMPI / AMP2 
320 IS'') * 1 

NTAY = 1 
SCMaG = AMPI 

69 TS (305/ 301/ 303/ 305/ 305), NTYPE 

300 RETURN 

301 OR 302 I = 1/ 48 

302 B ( 5q- I ) * 8(49-1) . B ( 50- I ) «FREQl 
9(1) = -B(1)#FPEQ1 

RETURN 

303 IF (FREQI *LE. 0*0) FREQI* l.Q 
PME6A = FREQ 1*6 *28 3 185 3 

PMGSQ = 6MtGA**2 
SCMAG = SCMAG*9 mEGa 
09 3C^ I = 1/ 43 

304 8(5l-I) = B ( 49- 1 ) + B ( 51- 1 ) *BMGSQ 
8(1) * 8<1)*BMGSQ 

8(2) = 3(2) *ONGSQ 
RETjRN 

305 D9 3^6 I = 1/ 48 

306 B(5o-I ) = B ( 49- 1 } 

B ( 1 ) * 0.0 

IF ( FREQI .LE. 0.0) FREQI* l.o 
T 1 = FPE01 

IF ( NTYPE- A ) 308/ 307/ 309 

307 ISM = 2 

IF ( t 1 *LE > 5*STEP) NTAY = 0 

308 RETURN 

309 ISN = 3 

T3 3 AM p 2/AMP 1 

IF (FREQ 2 .LE. 0*0 .0R. FREQ2 ,GE. FREQI) 
T 2 * FREQ2 

IF [T2 .LE* 5*STEP) MTAY - 0 

return 

END 

SU3RGUTINE SAMPLE 

C A. R. TYRR1LL/ UCLA/ 6/21/68 


UCL24760 

1PE12.5, i SEC.*/ 5X, UCL24770 

1 T9TAL MAG. s i / 1PE12.UCL24780 

UCL24790 

UCL24800 

UCL24810 

UCL24820 

UCL24830 

UCL24840 

UCL24850 

UCL2A860 

UCL24870 

UCL24880 

UCL24890 

UCL24900 

UCL24910 

UCL24920 

UCL24930 

UCL24940 

UCL24950 

UCL24960 

UCL24970 

UCL2A980 

UCL24990 

UCL25000 

UCL25010 

UCL25020 

UCL25030 

UCL25040 

UCL25050 

UCL25060 

UCL25070 

UCL25080 

UCL25090 

UCL25100 

UCL25110 

UCL25120 

UCL25130 

UCL251A0 

UCLS5150 

UCL25160 

UCL25170 

UCL25180 

UCL25190 

UCL25200 

UCL25210 

FREQ2 = 0*5*FREQ1 UCL 2 5220 

UCL25230 
UCL25240 
UCL25250 
UCL25260 
UCL 25270 
UCL25280 
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C8MPLEX»S PSPr.S<?0«8>/ EXCMP { 1^2^ ) z SP6W(50)J S/ SUHNM/ SUMDN 
C8-iPLEX*6 ZfWJT/ 17 , Zl 
DOUBLE DECISION X, Y 

C9 M M0N/?ITS/RSPNS /B(5o)/C(5o)/NXFR,A(5o)/NXTI/STEP/T0TEE/ 
ANTYPfc./A M .Plj AMP2/FRrQl/FRFQ2 / NPL0T/ 

INUMF’/NUMTl/NFf i7),iv.R( 11)/M0R/M8RNUM,NTA y , ISnJsCMAG/SCFREG/ SIGMA/ 
2Tl < T2-» T3> DM0D (61/A8SC/0RD 
C8MK8N/SPEED/EXCMP 

X = A*2S3135307179586D+00/FL8At(NUMFR) 

Y = 0*09+00 
spewd) = (I.OjO-O) 

00 130 I = 1/ I.UMFR 
3 s CNPLX( SIGMA/ SVGL(Y)) 

IF (I - NP < 1) ) 134/ 134/ 133 

134 70vJiE = CMPLXIO.O/ SNGU(Y)) 

FXCMP(I) = CEXP(79aIE) 

133 Y = x + Y 

SUMNN= to. 0 / 0 . 0 ) 

SUMDN - (0*0/0. 0) 

D8 1 31 J » 2/ NOR 
131 SP9W(J) = SPSW(J-l)*S 
0=1/ PSR 

A<J>*SPeW(J) + StJMNM 
B ( J ) *SP8W ( J ) + SUMDN 
135/ 136/ 137 
0*0) 


06 132 
SUMvM 
J 32 SU^DM 
IF 
ll 
GO 
ll 
GO 
Zl 
ll 

130 RSPMS< I ) 
RSPNS(l) 


135 

136 

137 


(ISK-2) 

= (1*0/ 

T0 130 

= 1*0 - CEXP(-Tl*S/SCFREQ> 

TO 130 

= CEXP(-Ti*G/SCfREO) 

(1.0 + CT3-1.q)*CEXP(-T2*S/SCFREG> 

= suk ki m*z;/sumdn 
= RSPNS( 1 )/2*0 


T3+Z1 >/( 1 *0 - Zl) 


return 

END 

subroutine flip 
. p. typrill/ ucla, 

COMPLEX RSPNS(20i,8>/ 

double precision x, ’ 

CPMM3N/3I To/RSPMS 


6 / 21/68 
EXCMP ( 1024 ) / 


I 

— /B(50l/C(5o)/NXFR/ A(50 )/NxTI/STEP/T8TEE/ 

ANTYPFz AMP*, AMP a ; FRF01/FREQ2/NPL6T/ 

1NUMFP/I'UMTI/NF( lT) / NR(ll>/MaR/MeRNUM,NTA Y / I SN/ SCMAG, SCFREO/ SI GMA/ 

a . -po . . n.Mfln \ .iaef. ^pn 


1NUMFR. 

2Tl/T2/T3,DM5D(6),AoSC/6RD 
COMiiON/SPFED/FXCNP 
136 FORMAT (//// sox/ <SIGMA ='/ 1PE12.5) 
SIG^CT = SIGMA/SCFREQ 
WRITE <o/ 136) SIGACT 
102 NXH = “ >, XFR/2 

06 106 L = 1/ NXH 
NFP = NF(L) 

NO IF * NR(L) - NFO 
*J?F 6 = NFtL + 1) 

08 106 K = 1/ NFS 


UCL25290 

UCU25300 

UCL25310 

UCL25320 

UCL25330 

UCL^5340 

UCL25350 

UCL25360 

UCL25370 

UCL25380 

UCL25390 

UCL25400 

UCL25410 

UCL25420 

UCL25430 

UCL25440 

UCL25450 

UCL25460 

UCL25470 

UCL25480 

UCL25490 

UCL25500 

UCL25510 

UCL25520 

UCL25530 

UCL25540 

UCL2555C 

UCL25560 

UCL25570 

UCL25580 

UCL25590 

UCL25600 

UCL25610 

UCL25620 

UCL25630 

UCL25640 

UCL25650 

UCLg5660 

UCL25670 

UCL25680 

UCL25690 

UCL25700 

UCL25710 

UCL25720 

UCL25730 

UCL25740 

UCL25750 

UCL25760 

UCL25770 

UCL25780 

UCL25790 

UCL25800 

UCL25810 
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105 


N2FB 


106 


110 


108 


+ 1 ) 


150 

151 

152 

153 


JUMP = (K-1)*2*NR<l> 

DO 106 J = NF8,> NDIFj 
JI = J + JU M P 
JF = JI + NO IF 
DO' 106 I = it nFO 
JJI = Jt + I 
JJF = JF + I 
Z « oSPNS( JJI ) 

RSPnS(JJI) = RSPNS(JJF) 

PSPfcSlJJF) = Z 
DO lTO L = 1* NXT 1 
NF8 a NF(L) 

NpE * NR(C> 

08 11C K = 1* NRE 
JI = (K- 1 )*NF ( L+i ) 

JF a JI + NFS 
00 11C J = 1* NF8 
JJI = JI + J 
JJF = JF + J 

Z = pSPNS ( JJF ) *EXC fP ( ( J- 1 ) #NRE 
RSPmS(JJF) = PSPmS(JJI) - Z 
RSPNS (JJI) = RSPNS ( jjl ) + Z 
DO 1 lB K = i* 2 
NF8_= NF(3-K) 

DO 108 J = 1* NF9 
JJ = ( J* 1 ) *MR { 1 ) 

JF = (J-1)*NR<2) 

DO 108 I = it NUMTI 
J J I 3 JI + I 

RSPNS(jF+I? = RSPNS(JJI) + RSPNS( JJI+NUMTI )#exCMP< u-i j#nfo + 1) 

RETURN 

END 

subroutine adjust 

• R. TYRRILL* UCLA; 6/21/68 
COMPLEX RSPNS (2048} 

DIMFNjSIom FnP(4) 

COMMON/B 1 TS/RSPMS, FACTL ( 50 ) , TERM < 50 ) , NXFR, POW < 50 ) j NxT ! J. STEP* 

BT0TEE*NTYPE* AMPi^ AMP2*FREQ1 >FReQ2*NPL0T/ 

1NUMFR* NUMT I * NF ( 1 1 ) , NR ( 1 1 ) t MORj MORNUM, NTA Y, I SNj SCM AG, SCFREQ* S I GMA , 
2Tl,T2*T3,pM9D( 6 ), A3SC,9RD 
C8MM8N/SPEED/FCTN(5i2) / TEE<512) 

OLW ; 2.O*SCMAG/,SCFREQ*FL0AT(NUMFR>) 

00 150 I = 1'* NUMTI 
tee < I ) * (FLOAT(J-I) )*SCFREQ 
FCTm(I) = DLW* ( REAL ( RSPNS < I J)5 
IF (SIGMA) 15l> 153* 151 

SGQ_= sigma/scfreq 

DO 1 ‘ 2 I = 2* NUMTI 

FcT^jt I) =' FCTm ( I) *EXP < SGq#TEE ( I ) ) 

call taylor 

DLW 3 SCMAG7SCFREQ 
FCTN(l) = TERM(2)*0LW 
If (NTAY) " 156* 156* 159 ~ ~ 


UCL25820 

UCL25830 

UCL25840 

UCL25850 

UCL25860 

UCL?5S70 

UCL25880 

UCL25S90 

UCL25900 

UCL25910 

UCL25920 

UCL25930 

UCL259A0 

UCL25950 

UCL25960 

UCL25970 

UCL25980 

UCL25990 

UCL26000 

UCL26010 

UCL26020 

UCL26030 

UCL26040 

UCL26050 

UCL26060 

UCL26070 

UCL26080 

UCL26090 

UCL26100 

UCL26110 

UCL26120 

UCL26130 

UCL26140 

UCL26150 

UCL26160 

UCL26170 

UCL26180 

UCL26190 

UCL26200 

UCL2 6 210 

UCL26220 

UCL26230 

UCL262A0 

UCL26250 

UCL26260 

UCL26270 

UCL26280 

UCL26290 

UCL26300 

UCL26310 

UCL26320 

UCL26330 

UCLH6340 
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c 


c 


159 rACTL<2> = 1«0 

oe 1> I = 3/ 50 

154 FaCTL(I) s FACTL < I -1 )*(I-2)*0»25 
03 !=■£ I = 2/ 5o 

155 TERM(I) = TERM ( 1 ) /FACTL ( I ) 

06 157 1=1/4 

FnP ( J ) = 0‘0 

Pfji-I { ? ) » 1 .0 

De 158 J = 2/ ^0 

FFP(I> = FNPtll + TERM! J)*P3W< J) 

IF (FNPU) >GT. 1 • cF +03 ) 63 Te 156 

158 Pe*’( J+l ) = p 6M J)»I*0.25 
157 F CTf-j { 1 + 1 ) = FNP(T)#DLW 

156 CALL p FTP L T 

return 


UCL26350 

UCL26360 

UCL26370 

UCL26380 

UCL26390 

UCL26400 

UCL2641C 

UCL26420 

UCL26*30 

UCL26440 

UCL26450 

UCL26460 

UCL2fc470 

UCL26480 

UCL26490 


END 

subrsutine Taylor 

A. R. tYRRILL/ UCLA, 6/21/68 

C3'lMeN/3jTS/Cl5C)/AMe0(4t)46),B(5O)/TERM(50 

XTqTeE/ 

ANT1'PE/AYPi,A'iP2,FR-Gl/FRE02/'J p L8T> 
1NU''IFR/ ,| UMTI/NF< iV),MR( 11),M8R,MBRMUMjNTaY, 
2Tl/T2/T3,0MeD(g) ,A rSC/0R0 
OB 217 I = 1/ I*BR 
217 C < I ) = A ( T ) 

MeRDlF = M3R - MPR.gUM 
210 oe 2lA I =1/ 5<1 
TER 1(1) = 0<0 
IF (MepoiF-I) 


213 


216 

212 

215 

214 

218 


G8 T3 218 


213, 212/ 212 

ter-ud = c(MeR)/8(MaR) 

IF ( ABS { TERM ( I ) ) • 3T • 1 * OE+60 ) 
oa 216 J = 1/ M9R 
C ( J 1 = C{J) - TFrM ( I > *8 ( J ) 
oe 215 J = 1/ M3R 
JJ - MPR + 1 - J 
C(JJ+1) = C(JJ) 

C < 1 ) = o.c 
RETURN 
NT AY = 0 

return 
end 

SUBROUTINE RRTPLT 
A. R. T Y RRILL/ UCLA, 

DIMENSION SYMBBL ( 5 ) 

Ce-^NpN/SPEtD/FCT .(512)/TEE(512)/P(132)/0HI 
CBM'-ST /3 ITS/Fl (409^ )/B(bO)/C (50) / N XFR/A(50 
ANTYpc/ A M Pi / AMP2,FRELl/f r REQ2/NPL0T/ 

I’-IUNFR/ NUNT I /NF ( 1 } ) , NR a 1 ) /MQR/ M6RNUM, NTaY, 
2Tl,T2/T3/0NBD(6)/ AFSC,3RD 
OATa SY w 3eL/' 1 / ' . •/ ’X’/ 'C'/ ' I '/ 

175 FORMAT (1PE10.3/ 122A1) 

1 A 1 FORMAT </////10Xz 16HGREATEST VALUE =/ lPE 
?U£ =/ 1 D E13« 5/ 10X, lOHItjTERVAL = / 1PE13*5 


6 / 21/68 


UCL26500 

UCL26510 

UCL26520 

)/NyFR/A(50)/N'XTI/STEP/ UCL26530 

UCL26540 

UCL26550 

ISN7SCMA5,SCFREQ/SIGNA, UCL26560 

UCL2&570 
UCL26580 
UCL26590 
UCL26600 
UCL26610 
UCL26620 
UCL26630 
UCL26640 
UCL26650 
UCL26660 
UCL26670 
UCL26680 
UCL26690 
UCL26700 
UCL26710 
UCL26720 
UCL26730 
UCL26740 
UCL26750 
UCL26760 
UCL26770 
UCLg6780 
UCL26790 
UCL26800 
1JCL26810 

ISN,SCMAG,SCFREO/SIGMA/ UCL26820 

UCL26830 
UCL26840 
UCL26850 
14HLBWEST VALUCL26860 


/DLp/OGP 

)/NxTl/STEP/T8TEE/ 


13.5/ 10X, 
///// > 


UCL2&870 
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c 


183 Fp<MAT (10X* 122A1 ) 

191 FP^AT (4[lPEl6.3* 1PE16.5)) 

194 pqR 'AT ( ///// 4(loX, A4* 11X* A4*3X)/) 

MRITFJ6# 194 > ( AdSC,ORD* 1=1*4) 

MF9= \UMT I /4 
09 19C I = 1/ NFS 
J = NFS + I 
JJ = NFS + J 

190 WRITE (6* 121) TEE ( I )* FCTN(I)," TEE ( J) * FCTN(J)* 
2* TF_E<NF6+JJ>/ FCT'j ( NFS-t-J J ) 

IF (N’PLST *UE. o) RETURN 
OH 3 = 0.0 
DLS = DHI 

DS 176 I = 1* nUMTI 

IF (FCTN ( I } -GT. DHI) DHI = FCtN(I) 

IFIFCTMI) *LT. DL°) OLS = FCtN(I) 

176 CONTINUE 

OGP = (DHI - DL8 5/115.0 
KzERS = 14.5 - (DLS/DGP) 

IF ( <ZERS- 1 1 ) 177* 177* 178 
173 IF < 132-KZEP-S ) 177* 177* 179 

177 XZErS = 1 

179 00 ISC I = 11* 132 

180 P(I) * SYMBOL ( 2 ) 

WRITE (6* 181) DHI, DLQ* DGP 
LL = C 

00 182 1 = 1* NUMTI* NPLST 

K = ((FCTM1) - OLQ)/DGP) + 14,5 
189 P('<) c SYM80U3) 

IF (Lt) 171* 171* 170 

170 write is* i83) <pij)* j = n* 1321 
LL = LL - 1 

GS T0 172 

171 WRITE (6* 175) TEE(D* (P(J)* J = 11* 132) 

LL * 9 

172 09 1 «A j = lc* 132 

184 P(J) = SYMPSL(l) 

IF (LL) 165* 185, 1SS 

185 OS 1*<6 II = 1* 3 
P(11+II) = SYM36 (2) 

P{X/ERS+I I ) = SYMBSL(2> 

P(KZERe-II> = 3Y«B0L(2) 

186 P(l32-n> = SY^B^L (2 ) 

188 P ( 132) = SYM8eL(5> 

P(KzERS) = SYMBOL (?) 

182 P(ll) = SYMB3L(5> 

WRlTc ($*183 )(SYNeSl( 2) *1=11* 132) 

RETURN 


UCL26880 

UCL26890 

UCL26900 

UCL26910 

UCL26920 

UCL26930 

UCL26940 

UCL26950 

TEE (JJ )* FCTN(JJ)UCL26960 
UCL26970 
UCL26980 
UCL26990 
UCL27000 
UCL27010 
UCL27020 
UCL27030 
UCL27040 
UCL27050 
UCL27060 
UCL27070 
UCL27C80 
UCL27090 
UCL27100 
UCL27110 
UCL27120 
UCL27130 
UCL271‘»0 
UCL27150 
UCL27160 
UCL27170 
UCL27180 
UCL27190 
UCL27200 
UCL27210 
UCL27220 
UCL27230 
UCL272 i )0 
UCL27250 
UCL27260 
UCL27270 
UCL27280 
UCL27290 
UCL27300 
UCL27310 
UCL27320 
UCL27330 
UCL27340 
UCL27350 


END UCL27360 

SUBROUTINE scale UCL27370 

A. R. TYRRILL* UCLA, 6/21/68 UCL27380 

C0MN0N/BITS/F1(4O96>*B(5O)*C(5O)* n )XFR*AC5O)*NxTI*STEPjT0TEE* UCLs7390 

A N TYPE*AMPi*AMP2*rREOl*FREQ2*NPL0T* UCL27400 
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IMGmf^NUKT I > NF ( 1 1 ) JNR ( 1 1 ) , M0R, M 8 RNUM, NTaY, I SN, SCMAGi SCFREq 7S I GMA, 
2Tl,Tp.<T3,DM0D(6), A&SC,0RD 
MRL0 = M0R - 1 

IF (SCFREQ-l.C) 231, 232, 231 

231 D0 233 I = 1, Ktfi 
00 233 J = 1, I 

A (M 0 R- I ) = A (H 6 R- I jiSCFREO 
233 B(Hgp-I) «= B (H0R-I ) #SCFReQ 

232 SCMAG - 1 . 0 /B(MeR) 

D0 234 I = 1, M 6 R 

234" "Bill" “ 3(1 >*SCMA0 " 

SC MaG = SCMAG*A(M0RNiUM) 

00 '235' I “n 17 M0RN1JM 
235 A ( I ) = A ( I >/A(M0RNut1 ) 

return 

EN0 

SU3RBUTINE R0UTH 
A. _R* TYRRILU-* UCLA, 6/21/68 
LOGICAL' U0G1 

C0MJ10N/3 ITS/01 Nfl ( 50, 501,0(26, 5o),AMgo( 296 ] 

1 , B ( 50 ) 1 C ( 50 ) > NXFR, A ( 50 ) , NxT 1 1 STEP, T0TEEi 

ANTYPE,AMPi,AMP2,FREO1iFREO2,NPL0T, 

lNUMFR,K’UtiTljNF(ii'),NR( H),M 0 R,MeRNUH,NTAY, I $n7sCMAG, SCFREQ, SIG m A, 
, 2Tl,T2, T3/0M6O ( 6 ) 1 AgSC, 0R0 
DO 230 J = 1, M0R 
BINS(liJ) = 1.0 
00 230 I = 2‘, M8R 

230 BIN0( 1/ J) * 0.0 

00 231 I * 2, M 8 R 
00 23l J * I, ('SR 

231 BIM0(1,J) =■ atNetl-liJ-l) + 8IN6(I'J-1) 

SIGToY * o.005*Nc{ 13-NXFR) 

sigma = O.c 

232 call calcr(L0gd 

'IF (L0G1) G 0 TP 233 
SIGma 3 SIGMA + SI3TRY 
' Gg T 5 232 

233 SIGTRY * (-0.1 )*SI S TRY 
SHIFT 3 0«0035*NF ( 13*NXFR) 

234 SIGMA = SIGMA + SIGTRY 
CALL CALCR(LOGl) " 

IF (SIGMA+SHIFT) 236, 236, 235 

235 IF (L6G1) G0 T0 "234 ‘ " 

SIGMA = SIGMA + SHIFT 

return 

236 SIGMA r o.O 

return 

END 

SUBROUTINE" CALCR (L0Gf ) 

C A. R. tYRRILLi UCLA, 6/21/68 
LOGICAL L0G1 

CgMMgN/B ITS/BI M 0 ( 50 , 50 ),D( 26 , 5o),SlGP&W(5o), AM 00 ( 246 ) 

1 ,B(50)'C(50)>NXFR, A(5O),NxYIiSTeP,T0TEE, 


UCL27410 

UCL27420 

UCL27430 

UCL27440 

UCU27450 

UCL27460 

UCL27470 

UCL27480 

UCL27490 

UCL27500 

UCL27510 

UCL27520 

UCL27530 

UCL27540 

UCL27550 

UCL27560 

UCL27570 

UCL27580 

UCL27590 

UCL27600 

UCL27610 

UCL27620 

UCL27630 

UCL27640 

UCL27650 

UCL27660 

UCL27670 

UCL27680 

UCL27690 

UCL27700 

UCL27710 

UCL27720 

UCL27730 

UCL27740 

UCL27750 

UCL27760 

UCL27770 

UCL27780 

UCL27790 

UCL27800 

UCL27810 

UCL27820 

UCL27830 

UCL27840 

UCL27850 

UCL27860 

UCL27870 

UCL27880 

UCL27890 

UCL27900 

UCL27910 

UCL27920 

UCL27930 


A-53 



ANTYPE,A'iPl>AMP2,FREQi/FRCQ2>NPLBT> 

lNUMFR/NUMTl/NFdi)/‘NRdl)/M0R/M0RNUM/NTAY/ ISNJsCMAG,SCFReQ/SIGMA/ 
2 T 1 < T?/ T 3 , BM 0 O ( 6 ) / A 3 SC/ 8 RD 
LeGi ° • true • 

IF {SIG^A .LT. l.OE-04 .AND, SIGMA .GT. -1.0E-04) SIGMa . 0*0 
SlGPeWCl) a SIGMA 
De 2^0 1=2/ M9R 

240 SlGpewm = SIGP 0 W< J- 1 )*SIGP 0 W{ 1 > 

C(MeR) = 8 ( M 0 R ) 

MRL8 = N0R - 1 
09 248 3 = 1/ *PL9 

C ( I ) « Btl ) 

11 = 1+1 

oe 241 Jail/ MSP 

T a B ( J ) *B 1 NO t I / J ) *S I GP9N ( J- I ) 

241 C(l) * CCD + T 

IF (C( I ) ) 247 / 247 / 248 

248 CeNTlNUE 

MH = MSR/2 + 1 
06 242 I * 1 / MH 
Og 242 J « 1 / M 0 R 

242 D( 1 /“|) » 0*0 

Mh a ( M 0 R + l )/2 
D 0 243 I a 1 / MH 

243 D ( I / 1 ) = C ( Msr» 2 * ({-!)) 

MH a MRR /2 


244 


246 


245 

247 


I a 1/ MH 
= C (M9R+1-2*I ) 

J = 3/ M9R 
I a 1/ Mh 

= (DU/J-i)*D(I + l/J- 
247/ 247/ 245 


2) -0(1/ J«2)*Dd+lz J-1) )/0( 1/ 0-1 > 


SV689DA P0UYN9MIAL ROBTFInDER 


1969 


DO 244 
0(1/2) 

09 p45 
00 246 
D(lz“> 

IF (D(i/J)) 

CONTINUE 
RETURN 

L9G i = .FALSE. 

return 

END 

SUBR0LITINE R99TS 
H.F.9KRENT 
C9MPLEX*i6 Q 
DIMENSION SMin(2)/3MAX(2) 

Integer SMAX/SMI* 

COMPLEX 0(50/2) 

REAL A(50)/C/YMA s /YMIN/XMAX/XNIN/H( 5)/F 
DIMENSION Nl(5)/NRT(50/3/2)/IN(2)/ JN{2) 

COMPLEX PzT,P( 5 0);S/SN/SS/SW/SE/F/FN/FS/FE/FW/V(5)/W<5> 
real G/GN/GS/ Gj / GE 
complex pole 

C9MmbN/DATA/DATA(17) /BLANK 
C0MMON/A/CHAR(SO) 

CRHM0N/SPEEO/P8lE ( 50 ) / NP0LES/ OUM/ S/SN/SS/SW/SE/F / FN/ FS/ FW/FE/ G/ GNj 
IGS/GN/GE/E/O/A/Nj/MRT/IN/JN/C/B 
C9MMPN/CIRCIT/ CARD! 600) /VN( 101/2) /NE/SMAX/SMIN 


UCL27940 
UCL27950 
UCL27960 
UCL27970 
UCL27980 
UCL27990 
UCL28000 
UCL28010 
UCL28020 
UCL28030 
UCL28040 
UCL28050 
UCL28060 
UCL28070 
UCL28080 
UCL28090 
UCL28100 
UCL28U0 
UCL28120 
UCL28130 
UCL28140 
UCL281S0 
UCL28160 
UCL28170 
UCL28180 
UCL28190 
UCL28200 
UCL28210 
UCL28220 
UCL28230 
UCL28240 
UCL28250 
UCL28260 
UCL28270 
UCL28280 
UCL28290 
UCL28300 
UCL28310 
UCL28320 
UCL28330 
UCL 28340 
UCL28350 
UCL28360 
UCL28370 
UCL28380 
UCL28390 
UCL28400 
UCL28410 
UCL28420 
UCL28430 
UCL28440 
UCL28450 
UCL28460 


A "54 



'to 

1 

52 

53 

203 


202 

206 

41 

204 

205 

2 

*5 

C # « . 

31 


equivalence: <&rH(i> )*(f*v( d ).» (s*w< n > 

NpBu S=Q 
0635N9*l#2 

N = SMAX(\'S)-SMIN(N9)+l 
N£=»SHIN(No)+51 
N7=S^AX(N ,c ?) + 5i 
O 04oj =N$»N7 

lF(vN(I f N9).NE.0-E0)65 T0 1 

C0NtjNUE 

G0 TO 25 

N6'I 

D65?I=N6>N7 

J=N7+N6'I 

IE(VN(J*N9)* n E*0*E0)GS Te 53 
CO’JTlNUE 
G0 T6 25 
N7 = J 

N=N7-N6+1 

lr<M*LF-ljGfi T« 25 

MxN-i 

WRiTE(6i203)M ,, _ 

FORMAT (' 1 1 / 46X/ !“«•» SV9B0DA P0LYN0MJAL RB0TF I nDER *** ' t 32X/ • H .F 
IRENT'/li&X/ 'JAN. lg69'//10X, tpgLYN8NIAL Bf DEgREE • a I4>* 

JN(1)=0 
JN<2)=0 
N8-0 
IN ( 1 ) =0 
IN<2)=0 
N p AS3=0 
Js (K/6 ) + 1 
K = 0 _ 

094{l*l» J 
L*MlN0( M /K+5) 

WRITE ! 6* 202’ tN2»N2=K»L) 

FsRHAT ( IX a 6 1 22 ) 

WR I TE ( t» 206 ) ( VN ( N6+n2/ N9 > a N2»Ka L ) 

FeRTAT(6(E20«10j ' X')/) 

K x K+ A 

WRITE ( 6* 204 > . . 

F9RMAT(/4Xa 'ACCURACY REQUESTED -- 6 SIG^IFICAmT F I CURES I //45X, ' 

il part imaginary part expbnentd 

Wf?tTE(6/2C5) 

F0RMAT(42Xj45< ) ) 

C=0 . EC 
D02I=1>N 
J=N7+ 1- I 
A ( I ) =VK ( J/N9 > 

8 ( I ) = CMPLX(A( I IaO.EO) 

L = 1 

the SCANNING RBjTINE * 

XN1N=-1»E0 

Y,mIN=-SQRT(ABS( 1.E0-(XMIN**2) ) )-6'25E-2 
K!R4gT = JN(3-L) 


UCL28470 
UCL28480 
UCL28490 
UCL28500 
UCL28510 
UCLS8520 
UCL28530 
UCL28540 
UCL28550 
UCL28560 
UCL28570 
UCL28580 
UCL28590 
UCL28600 
UCL28610 
UCL28620 
UCL28&30 
UCL28640 
UCL28650 
UCL28660 
UCL28670 
.6KUCL28680 
UCL28690 
UCL28700 
UCL28710 
UCL28720 
UCL28730 
UCL28740 
UCL28750 
UCL28760 
UCL28770 
UCL28780 
UCL28790 
UCL28800 
UCL28810 
UCL28820 
UCL28830 
UCL28840 
UCL28850 
REAUCL28860 
UCL28S70 
UCL28880 
UCL28890 
UCL289Q0 
UCL28910 
UCL28920 
UCL28930 
UCL28940 
UCL28950 
. . .UCL28951 
UCL28960 
UCL28970 
UCL28980 


A-55 




Kf?=-16 



UCL28990 

s 

K j ayM If- *16. 



UCL29000 


YMlN KI*6.25E-2 



UCL29010 


ymax=-y u im 



UCL29020 

7 

3= C' PLXfXHlN/YMIN) 



UCL29030 


sw=s+(0.ec,6.2of-2) 



UCL29040 


S3=S-(0.E0>6.25E-2) 



UCL29050 


SV.=S-<6*25E-2,0.E0) 



UCL29060 


SE=S+ ( 6» 25E“2/0»E0 > 



UCL29070 


NTA3=IN(L) 



UCL29080 


N4 = l 



UCL29090 

* T t 1 n 

...•THE CAICULATTON R0UTIMF — Ur T Nf: HRRNfR 1 R T nl IF - - 



33 

D026I=N4,5 



UCL29100 

£6 

V(I ) . (C.EO^O-EO) 



UCL29110 


P=B(N> 



UCL29120 


063I=1/M 



UCL29130 


T =U ( I ) 



UCL29140 


De3K*^i5 



UCL29150 

3 

V(<)=(V<K]+T)*W(K) 



UCL29160 


D027l=N4,5 



UCL29170 


V ( I ) =V ( I ) +£ < N ) 



UCL29180 


IF(kTAG.EC.O)G& T q 27 



UCL29190 


DP47 , = 1, MAG 



UCL29200 


TnM( I )-0(K*L> 



UCL29210 


IF<C*BS(7 J.LE.l.E- n 0)T-(l.E-60>l.E-60» 



UCL29220 


Pa P/T 



UCL29230 

47 

V( I ) IV < I )/J 



UCL29240 

27 

H { I ) = CABS (V ( I ) ) 



UCL29250 

‘m I 

end calculation routine-- RETURN T0 the proper 

POINT 

• 

UCL29251 


GO TP (9,1C)*N4 



UCL29260 

201 

F0RNAT ( IX*7E1R*R) 



UCL29270 

9 

K = 0 



UCL29280 


084 ! =?fS 



UCL29290 

• • 9 

the CRITERION F3R FINDING A ROOT— 



UCL29291 

Ml 

the Residual at th E central point must be less 

THAN 

that of 

UCL29292 

•ft 

the four surrounding points, 



UCL29293 


IF < H( I ) .LT.GIGO TO 46 



UCL29300 


IF(H( 1 I .EG.G)F = K + 1 



UCL29310 

4 

CONTINUE 



UCL29320 

• • ♦ 

HOWEVER, if all 5 POINTS ARE EGUAL, THIS POINT 

MUST 

BE REJECTEDUCL29321 


IFIK.ED.4IS0 TO *6 



UCL29330 

’ T t 

, , , . THE HOME-IN ROUTINE, 



• •LJfL9a331 


J=2 



UCL29340 


NEXp=0 



UCL29350 


C=* 37252902984619 1A0625E-8 



UCL29360 


NR=KR*16777216 



UCL29370 


Nl=<l*l67772i6 



UCL2938 0 

16 

IF ( (NP.NE.O) -OR. <NI .NE.O) )G0 To 32 



UCL29390 


NEXR=NEXP-1 



UCL29400 


JrI 



UCL29410 


CeC*6«25E-2 



UCL29420 

32 

NX S 16** ( 7-J) 



ucLag^o 

19 

SN = CNPLXI FlSAT(N»)*C, FL0AT{NI+NX)*C) 



UCU29440 


A ~5 6 




SS~ CMPLX < FLOAT ( NR ) *C/ FLB AT ( Nl *NX ) *C ) 



UCL29450 


SL = CM^LXc FL8AT<NR-NX)*0 FL6aT<NI>*C> 



UCL29460 


SE = C^PLX ( FL6AT(NR+NX)*C/ FLB AT < NI > *C ) 



UCL29470 

* • • 

BRANCH T0 THE CaLCULATIBN ROUTINE. 



UCL29471 


N4 = ? 



UCL29480 


ee ts 33 



UCL29490 

302 

format ( 1x^4220* 8) 



UCL29500 

10 

fsAMM (H(1>/H(2)/M(3)/H(45/H(5W 



UCL29510 


091 1 1 = 1 » 5 



UCL29520 


IF { E «EC3.H ( I ) )G8 TO J2 



UCL29530 

11 

continue 



UCL29540 


WRlTE<6/303) 



UCL29550 

303 

FOPNATI' ERROR') 



UCL29560 

1? 

ee TO (13/17/ 20. 22/23 ) / I 



UCL23570 

* • ♦ 

IF The OESIpe ACCURACY has been REACHED/ EXIT ThE 

hbme^in 

UCL29571 

••• 

ROUTINE* 



UCL29572 

13 

IF ( J «GE • 6 ) 00 TO 15 



UCL29580 


J + i 



UCL29590 


GO TO 16 



UCL29600 

17 

NIsRl+NX 



UCL29610 


G8 TO 21 



UCL29620 

20 

ni=ni-nx 



UCL29630 

21 

lF((J.N’E.l).AND.(M0C{Nl/NX*l6).EQ.0nJ=J-l 



UCL29640 


GO TS 14 



UCL29650 

22 

NR=NR-NX 



UCL29660 


ee to 28 



UCL29670 

23 

NR=NR+NY 



UCL29680 

28 

IF ( t J.NE.l ) • AND • ( MOD ( NR/ NX* 1 6 ) « EQ • 0 ) ) J=J’l 



UCL29690 

H 

S = W{ I > 



UCL29700 


G=H( I ) 



UCL29710 


!F< CABS(S) .GT.2.E0IGB TB 46 



UCL29720 


GO T0 32 



UCL29730 


.oftfrT FvAMTfcATlfW dBuTTNF 




15 

IF t 'JTAG.EQ.OjeB TB 43 



UCL29740 

- t « ♦ 

CHECX THE LAST FEW STEPS/ BUT THIS TiMe WitHBUT 

DIVIDING but 

UCL29741 

» 1 1 

ThE R0BTS. 



UCL29742 


njagIo 



UCL29750 


F=(0*E0/0.EG) 



UCL29760 


D05OI=1/M 



' UCL29770 

50 

F=(F+BU) )*S 



UCL29780 


F=F+B (N) 



UCE29790 


e= caBs(f) 



UCL29800 


00491=1.7 



UCL29810 


JsMAXO ( 7- I / 2 ) 



UCL29820 


IF t (K0D(NR/ 16**1 ). vE-O) .OR* (M0D(NI/ 16**1 J.NE. 6) >G0 

TB 

32 

UCL29830 

40 

continue 



UCL29840 

43 

NTA3„r , (L) 



UCL29850 


!F(G.GE.CABS(P)/2.oEO)GP TO 46 



UCL29860 


KsL 



UCL29870 


N2 = 16 



UCL29880 

29 

I f ( (NP/N2**7.EG*0) .AND. (NI/N2**7«EQ.0) )G0 TO 34 



UCL29890 


IF ( Mf>0 (NR. N2 ) .GC.Ng/2 )NR=NR+N2 



UCL29900 


IF(M0D(NR,N2) *LE. (-N2/2) )NR=NR-N2 



UCL29910 


A -57 



IF(M8D<NI,N2) .6E.N2/2)NI»NI+N2 

IF<mOD(nr,n2).IE. C-N2/2) )NR=NR-N2 

nr=mk/n2 

Nj=Ri/Na 

N£XP=NEXP+1 

Gq J/a 29 

34 IF (x'*EQ» 1 )g8 TO 35 

C= (FLOAT (NR)**2)+(FL8AT (NI )**Z) 

C*= (FLOAT (NR)/C I *0 • 7205759 4037927936E 17 
C=(FL8AT (NI >/C)*C*72057594037927936E17 

nex°=-nexp 

K=1 

51 IF ( tABS(E).LE.0.268435456E9)*AND»<ABS(C)*LE.0.26343^456E9) >GOTft 
E=E/16. 

C=C/l6 • 
nexp=nexp+i 

GB T& 51 
^2 NR = E 
NI=C 

Ge T0 29 

C. .THE R6UND-0FF ROUTINE 

35 IF ( J«GE*7)G8 Te 24 
KrN2**(7-J) 

lF(Ji 3 D(NR,K) .GE.K/2)NR = NR+K 
IFCMBDCNr,*) *LE. (-K/2) )Nr=NR-K 
IF<M0D<NI,K).GE. , </2>NI=Ni+K 
I F ( MOO ( N I* < ) .LE.(-K/2) )Nl=NI-K 
NR=NR-P3D<NR,K) 

NI»NI“M0d(NI#K) 

Cl.. RETURN TO the PROPER point* 

IFM.LT.05G8 TO 37 
24 lFCNR80T.ECi.0)Ga TO 18 
K “ 3 *■ L 

38 0839 I = 1 j NRS8 T 

IF<NKT( I,3>K> .NE.NEXPjGO T8 39 
Ki = I ABSCNR-NRTC I, l,K) )/( l6**(7-J) 5 
K2=IA8 c: <NI-NRT( 1,2,50 >/< 16** <7-J) ) 

IF( (K1.LT.2) .ANd* (<2>LT»2) )GS T0 5 

39 continue 

18 JN(LC=JN(L)+l 
K*JN<L> 

NRT<tOl,*L>=NR 
NRT j «•> 2. L ) =N I 
NRT(K,3,L)=NEXP 

C... p-RFORM THF CONVERSION FR0M HEX TO DECIMAL. 

N3 = NI 

C=FL8AT(NR5*(16.**(NEXP»7)) 

E=FlOATCM )*( 16.**(NEXP-7) ) 

~ NexP- AL 0G10C ANA^l ( ABS ( C > j ABS (E ) ) 5 
NR=C*(19«**(7-NEXP)5 
Nl=E*C10.**(7-f'EXP) ) “ ‘ 

N = -M 

N2=l0 ‘ ' 


UCL29920 

UCL29930 

UCL29940 

UCL29950 

UCL29960 

UCL29970 

UCL29980 

UCL29990 

UCL30000 

UCL30010 

UCL3Q020 

UCL30030 

42UCL30040 

UCL30050 

UCL30060 

UCL30070 

UCL30080 

UCL30090 

UCL30100 

UCL30110 

..UCL30111 

UCL30120 

UCL30130 

UCL301AO 

UCL30150 

UCL30160 

UCL30170 

UCL30180 

UCL30190 

UCL30191 

UCL30200 

UCL30210 

UCL30220 

UCL30230 

UCL302AO 

UCL30250 

UCL302&0 

UCL30270 

UCL30280 

UCL30290 

UCL303OO 

UCL3C310 

UCL30320 

UCL30330 

UCL3Q331 

UCL30340 

UCL30350 

UCL30360 

UCL30370 

UCL30380 

UCL30390 

UCL30A00 

UCL30410 


A -58 




K = 1 

UCL30420 


pRANCh T8 THE RoUND-eFF ROUTINE AGAIN- 

UCL30421 


G0 TC 29 

UCL30430 

37 

N = -M 

UCL30440 


QxDCNPLX (DFL8AT(NR)#1«D~6*DFL8 aT(NI )*1-D*6> 

UCL30450 


K = 'lEXP-l 

UCL30460 


WRItE(6/200)Qj< 

UCL30470 

200 

F8RmaT(40X/2F15.9j I i 11 

UCL30480 

C 

INSERT POLES IN C6MM0N slock 

UCL3049D 


IF(N9.NE-1 )GB T9 5 

UCL30500 


NP9lES=NP9LES+1 

UCL30510 


POLf(NP0LES)=O*(1O.*»K) 

UCL30520 

5 

IF( J- (1)+JK(21 -LT-MG8 T9 44 

UCL30530 

36 

write <6, 205) 

UCL30540 


Ge TO 25 

UCL30550 

44 

IN<L)=IN<L>+i 

UCL30560 


vlslN(t) 

UCL30570 


0( J/L>= s 

UCL30580 

c • ♦ • 

CONTINUE THE scan. 

UCL30581 

46 

IF(YMIN.G£.YMaX>GS to 6 

UCL30590 


KIski+1 

UCL30600 


YMN = KI*6-?5E«2 

UCL30610 


if <i_-e:q. 1 ioe T8 7 

UCL30620 


IF(YNIK.LT.YMAx)G9 to 7 

UCL30630 

6 

KP=KP+l 

UCL30640 


XNI«.| = KP*6.25E-? 

UCL30650 


Ypl v! = -S0kT(ABS(l-E0-(XNlN**2>) J-6-25E-2 

IJCL30660 


IF{xNIN-LE-1-E0)G8 to 8 

UCL30670 

Ci « < 

this PASS is FINISHED. 

UCL30671 


NPAS$sNPASS+l 

UCL30630 

c • • • 

CHECK IF tee NA\Y PASSES have been PeRFSRNeD. 

UCL30681 


iFC'JpASS -GT-?* (PIN'UN, JN{ 1 ) +JN{2) 5 + 1 ) ) go TS 36 

UCL30690 


T KM/FRS t HW Rpl IT TNF- ...... * 



L = 3-L 

UCL30700 


KiN/- 

UCL30710 


Oe30l-1»K 

UCL30720 


T=Bt I ) 

UCL30730 


J=N-I+1 

UCL30740 


6(1 

UCL30750 

30 

5 [ J ) -T 

UCL30760 


S.CK T6 THr SCANNING ROUTINE 

UCL30761 


lF(L* E -*2) Ge Tn 31 

UCL30770 


Go TO 45 

UCL30780 

25 

continue 

UCL30790 


0699 1*1*5 

UCL30800 

99 

Cs-AR I I ) =6LANK 

UCL30810 


return 

UCL30S20 


F\;0 

UCL30830 


*ST3P» C 


A-59 



A. 2 NASAP-70 DICTIONARY 


A. 2. X ' Dictionary of Variables 


A(I) 


A(I) 

A(I) 

A(I) 

ABSC 

ADDR(I) 

AMOD(I) 

AMP1 
AMP2 
AS(I, J) 

ASIGN (I, J) 

A1(I) 

B(I) 

B(I) 

B(I) 

BITS(I) 

BINO(I) 

B MOD(I) 

B RANCH(I) 

B 1(1) 

C(I) 

C(I) 

CA(I) 

CB(I) 

CARD(I, J) 
CONST 
COUNT (I) 


In Common A. An array of 80 elements containing the 

80 characters of the most recently read 
data card. 


In Common BITS. An alias for A1(I). 

In Subroutine ROOTS. The coefficients of the polynomial 
being evaluated. 

In Subroutine POLSEN. The real part of the I' th pole. 

In Common BITS. The abscissa label for Subroutine PRTPLT. 
In Common BITS. An alias for NQ(I) used m Subroutine GRAPH. 
In Common BITS. The list of plot control variables STEP to 
NPLOT. 


In Common BITS. The positive portion of a pulse tram. 

In Common BITS. The negative portion of a pulse tram. 

In Subroutine ANSWER. Alphanumeric array of S' s used m 
printing Transfer and Sensitivity Functions, 

In Subroutine ANSWER. Alphanumeric array of signs used m 
printing Transfer and Sensitivity Functions. 

In Common BITS. Numerator of function to be plotted. The 
coefficient of S*“^. 

In Subroutine POLSEN. The imaginary part of the I 1 th pole. 

In Common BITS An alias of B1(I). 

In Subroutine ROOTS. A Complex type array of the polynomial 
coefficients. 

In Common BITS. Array of words used in logical bit manipulations. 
In Common BITS. A list of Binomial Coefficients used m 
Subroutines ROUTH and CALCR. 

In Subroutine PLOT. An integer type alias for AMOD(I). 

In Common BITS. The list of branches connected to each 
circuit node. Used in Subroutines CALC and GRAPH. 

In Common BITS. Denominator of function to be plotted. 

The coefficient of S* _ l. 

In Subroutine POLSEN. The derivative of the Transfer Function 
Denominator evaluated at the real part of the I 1 th pole. 

In Common BITS. An alias for POW(I). 

In Subroutine INVERT. A Complex type alias for Al( J) with 
CA(1) the coefficient of the highest power of S. 

In Subroutine INVERT. A Complex type alias for B 1( J) with 
CB(1) the coefficient of the highest power of S. 

In Common CIRCIT. Array containing the J characters of the 
I 1 th element name. 

In Subroutine INVERT. The quotient resulting when the numerator 
of the transform is divided by the denominator. 

In Subroutine LOOPS. The number of transmittances leaving 
flowgraph node I. 
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D(I) 

D(I, J) 

D(I, J) 

D 

DEP(I, J) 

DGP 

DHI 

DL 

DLO 

DR 

ERR 

EXCMP(I) 

EXPO 

FACT 

FACT(I) 

FACTOR 

FAD 

FCTN(I) 

FAN 

F, FE, FN, 

FLAG 

FNP(I) 

FREQ 

FREQ1 


In Subroutine POLSEN. The derivative of the Transfer 
Function Denominator evaluated at the imaginary part of 
the I' th pole. 

In Common BITS. The Routh Table built by Subroutine 
CALCR. 

In Subroutine ROOTS. List of roots used for forming 
the reduced Polynomial. 

In Subroutine SCALER. The sum of the element value 
exponents scaled by FACTOR. 

In Common BITS. Array containing the J characters of 
the name of the element controlling the I 1 th element. 

In Subroutine PRTPLT. The ordinate interval. 

In Subroutine PRTPLT. The maximum ordinate value. 

In Subroutine SCALER. The sum of the element value 

T 

exponents scaled by FACTOR-1. 

In Subroutine PRTPLT. The minimum ordinate value. 

In Subroutine SCALER. The sum of the element value 
exponents scaled by FACTOR+1. 

In Common ERR. = 1 when a serious error is detected. = 0 
otherwise. 

In Common SPEED. Contains the e( ** } points calculated 
by Subroutine SAMPLE, 

In Subroutine NUMBER. = 1 when the exponent is negative. 
= 0 otherwise. 

In Subroutine ANSWER. The normalizing factor of the 
Transfer or Sensitivity Function. 

In Common BITS. Used m computing Taylor Series 
coefficients. 

In Common ERR. Contains the Scaling Factor determined 
by Subroutine SCALER. 

In Subroutine ANSWER. The normalizing factor of the 
function denominator. 

In Common SPEED. The ordinate points for Subroutine 
PRTPLT. . 

In Subroutine ANSWER. The normalizing factor of the 
function numerator. 

FS, FW In Subroutine ROOTS. The function values at the five 
points of the five point test 

In Common FLAG. = 1 when Function ISORT fails to 
convert a numeric character its value. = 0 otherwise. 

In Subroutine ADJUST. Used m computing the Taylor 
Series corrections to the first five plot points. 

In Common PATHS. The frequency used by Subroutine 
FINE to build a circuit tree. 

In Common BITS, a in e 3 *, f m Sm 2 7r ^ : , starting point 
for frequency plots. 
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FREQ2 

GAG{I) 

GENER(I) 

INDIC(I) 

IN(I) 

INODE 

INP 

ISN 

ITAG 

ITREE 

JN(I) 

KI 

KR 

KZERO 

LIMIT 

LINE(I) 

LINE(I) 

’lINKS(I) 

, LOGIC (I) 

LOGIC 1 
LOG1 

LOOP(I) 
LPATH(I, J) 

LS(I) 

MOR 

MORNUM 


In Common BITS. Pulse width m a pulse tram, ending point 
for frequency plots. 

In Common GAG. Contains the list of values to be used as 
Sensitivity Tags. 

In Common CIRCIT, = 0 if the I 1 th element is passive. = 1 
if the I' th element is active. 

In Subroutine FINE, Used during circuit tree building. 

In Subroutine ROOTS. Number of discontinuities found on a 
type I pass. 

In Common BITS. The lowest node number m the circuit. 

In Main Program. = 1 when a Transfer Function Request has 
been read. = 0 otherwise 

In Common BITS. = 2 for a pulse response. = 3 for a pulse 
tram response, = 1 otherwise. 

In Subroutine ANSWER. = - 1 for a Worst Case Function. = 0 
for a Transfer Function. Else, Sensitivity Function for 
element number ITAG. 

In Common TREE. = 1 when Subroutine FINE is to be called 
to build a tree. = 0 otherwise. 

In Subroutine ROOTS. Number of roots found on a type I pass. 
In Subroutine ROOTS. Counter for the Imaginary axis. 

In Subroutine ROOTS. Counter for the Real axis. 

In Subroutine PRTPLT. The location of the zero axis on the 
print line. 

In Subroutine SENSIT, WORST. The maximum number of 
Sensitivity Requests that can be handled. 

In Subroutine FINE. Used for output formatting. 

In Subroutine ANSWER. Used for printing the dividing line. 

In Common BITS, Area for logical bit manipulations during 
evaluation of current equations in Subroutine CALC. 

In Common BITS. A Logical Type alias for LOOP(I). Used m 
Subroutine LOOPS. 

In Subroutine LOOPS. A Logical type alias for Ml. 

In Subroutines ROUTH and CALCR. = TRUE if the current 
SIGMA value lies to the right of all poles in the complex plane. 
= FALSE otherwise. 

In Common BITS. Area for logical bit manipulations during 
flowgraph loop evaluation. 

In Common BITS, PATHS. LPATH(I, 1) is the origin node of 
the I'.th flowgraph transmittance. LPATH(I, 2) is the target 
node of the I* th flowgraph transmittance. 

In Common SPEED. Contains the S value and tags of the I 1 th 
loop m the flowgraph. 

In Common BITS. Number of coefficients m the transform 
denominator. 

In Common BITS. Number of coefficients m the Transfrom 
numerator. 
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MPATH(I, J) 

MRMAX 

Ml 

N(I) 

NB 

NBR(I) 

NDEM 

NE 

NEL{1) 
NEXP 
NEXPS(I, J) 
NFLAG 

NFLAG 

NI 

NINDIC(I) 

NLOOP 

NN 

NN 

NNODES 

NODE(I) 

NPATH 

NPLOT 

NPOLES 

NQ(I) 

NB 

NR 

NRT(I, J, K) 
NS(I) 

NSEN 

NTAY 

NTIMES 

NUM{I, J) 

NUMB(I) 

NUMNOD 

NUMFR 

NUMTI 

NWORST 


In the Mam Program. An alias for LPATHd, J). 

In Subroutine INVERT. Number of coefficients m the transform. 
In Subroutine LOOPS. Used during Higher Order Loop evaluation. 
In Subroutine NASAP. Used during circuit tree building. 

In Subroutine CALC. Number of branches m the circuit tree. 

In Subroutine CALC. Number of branches at circuit node I. 

In Subroutine WORST. = 0 if the simplified formula can be 
used. = 1 for the standard formula. 

In Common CIRCUIT. Number of elements mthe circuit. 

In Subroutine CALC. Number of elements at circuit node I. 

In Subroutine ROOTS. The magnification factor for homing -m. 

In Subroutine ANSWER. Array containing powers of S. 

In Subroutine WORST. = 1 when Worst Case analysis has been 
aborted. = 0 otherwise. 

In Subroutine INVERT. = 1 when the transform is not rational. 

In Subroutine ROOTS. The hexadecimal imaginary part of the 
root. 

In Subroutine FINE. Used during circuit tree building. 

In Common SPEED. Number of loops m the flowgraph. 

In Subroutine LOOPS. Number of nodes m the circuit. 

__ t 

In Subroutine CALC. Number of nodes m the circuit. 

In Common BITS. The highest node number m the circuit. 

In Subroutine LOOPS. The number of flowgraph transmittances 
arriving at flowgraph node I. 

In Common PATHS. Number of transmittances m the flowgraph. 
In Common BITS. Number of calculated points per printed point. 
In Common SPEED. Number of poles in the Transfer Function. 

In Common BITS. The beginning of the list of branches for node 
I m the BRANCH array. Used m Subroutine CALC. 

In Subroutine ROOTS. The hexadecimal real part of the root. 

In Subroutine READ. Number of duplicate elements names. 

In Subroutine ROOTS. The hexadecimal list of roots. 

In Subroutine CALC. Initially the same as NQ(I). Used during 
the calculation of the current equations. 

In Common GAG. Number of elements tagged for Sensitivity 
Analysis. 

In Common BITS. = 1 if a Taylor Series is to be used to compute 
the first five plot points. =0 otherwise. 

In Common NTIMES. Number of words per block to be used in 
logical bit manipulation m Common BITS. 

In Subroutine ANSWER. Alphanumeric array of S exponents. 

In Subroutine FINE. Used during tree building. 

In Subroutine FINE. Number of circuit nodes. 

In Common BITS. Number of points along the w axis. 

In Common BITS. Number of calculated points m the plot. 

In Common WORST1. = 1 if a Worst Case analysis is to be 
performed. = 0 otherwise. 
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NX 

N1 

N2 

N3 

OCARD(I, J) 
OGENER(I) 
OORIGIN(I) 
ORD 

ORDER(I) 

ORIGIN(I) 

OTARGT(I) 

OVPATH(I) 

ozd) 

p(i) 

p 

PHd) 

POLE(I) 

POW 

powd) 

Q 

RSPNS(I) 


S, SB, SN, SS, SW 
S(I) 

SC FREQ 
SCMAG 
SENS (I) 

SIGMA 

SIGPOW(I) 


In Subroutine ROOTS. The step size of the Home -in 
routine. 

In Subroutine LOOPS. The first node m a Higher Order 
Path. Detected by Subroutine UNPAK. 

In Subroutine LOOPS The second node m a Higher Order 
Path. Detected by Subroutine UNPAK. 

In Subroutine LOOPS. The third node in a Higher Order 
Path. Detected by Subroutine UNPAK. 

In Subroutine FINE. The ordered CARD array. 

In Subroutine FINE. The ordered GENER array. 

In Subroutine FINE. The ordered ORIGIN array. 

In Common BITS. The ordinate label for Subroutine 
PRTPLT. 

In Subroutine LOOPS. A pointer to the location of the 
I 1 th order loop or transmittance m the LOOP area. 

In Common CIRCIT. Origin circuit node of the I 1 th 
element. 

In Subroutine FINE. 

In Subroutine FINE. 

In Subroutine FINE. 

In Subroutine PRTPLT. 
during plotting. 

In Subroutine POLSEN. 

Sensitivity. 

In Subroutine INVERT, 
frequency plot. 

In Common SPEED. The I' th pole of the Transfer 
Function, a Complex number 

In Subroutine NUMBER Used to hold the exponent value. 

In Common BITS. Part of the Taylor Series computed by 
Subroutine TAYLOR. 

In Subroutine POLSEN. The Imaginary part of the Pole 
Sensitivity. 

In Common BITS. The points F(o-S-jw) computed by 
Subroutine SAMPLE. The work array for the Fast 
Fourier Transform m Subroutine FLIP. 

In Subroutine ROOTS. The five points of the five point test. 
In Common BITS, PATHS. Contains the S value and tags 
of the I* th flowgraph transmittance. 

In Common BITS. The frequency scale factor. 

The amplitude scale factor. 

Numerical Sensitivity Tag for the 


The ordered TARGET array. 
The ordered VPATH array. 

The ordered Z array 

Used to format the print line 

The Real part of the Pole 

Array of phase points m a 


In Common BITS. 

In Common GAG. 

V th element. 

In Common BITS, 
frequency. 

In Subroutine CALCR 


The real part of S, the complex 


An array of powers of SIGMA a 1 
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SMAX(I) 


SMAXOO(J) 

SMAXOl(J) 

SMAXl(K) 

SMAXIO(J) 

SMAX2 

SMIN(I) 


SMINOO(J) 

SMINOl(J) 

SMINl(K) 

SMINIO(J) 

SMIN2 

STEP 

SPOW(I) 

TAG 

TAG 

TARGET(I) 

TAG(I) 

TAG(I) 

TEE(I) 

TERM(I) 

TOL(I) 

TOTEE 

TREE 

TYP(I) 

TYPE(I) 


In Common CIRC IT. SMAX(l). Highest s power m Transfer 
function Denominator;, VN(I, 1). SMAX(2) Highest s power 
m Transfer Function Numerator, VN(I, 2). 

In Common POLY. Highest s power in ~H(P, Q), VN00(I, J), 
for the J 1 th element. 

In Common POLY. Highest s power in H(P' ,Q) VN0I(I, J), 
for the J’ th element. 

In Common BITS, POLY. Highest s power m Sensitivity- 
Function for K 1 th element, VNSEN(I, J, K). _ 

In Common POLY. Highest s power m -H(P, Q 1 ), VN10(I, J), 
for the J 1 th element. 

In Common WORST1. Highest s power m Worst Case 
Function, VW(I, J), 

In Common CIRCIT. SMIN(1) Lowest s power m Transfer 
Function Denominator, VN(I, 1). SMIN(2), Lowest s power m 
Transfer Function Numerator, VN(I, 2) . 

In Common POLY. Lowest s power m -H(P, Q), VN00(I, J), 
for the J' th element. _ 

In Common POLY. Lowest s power in H(P' ,Q) VN01(I, J), 
for the J 1 th element. 

In Common BITS, POLY. Lowest s power m Sensitivity- 
Function for K 1 th element, VNSEN( I, J, K) . _ 

In Common POLY. Lowest s power m -H{P, Q' ), VN10(I, J), 
for the J ! th element. 

In Common WORST1. Lowest s power m Worst Case Function, 
VW(I, J). 

In Common BITS. The interval between successive plot points. 

In Subroutine SAMPLE. The value of S* -1 . 

In Common TAG. A utility flag u&ed by the Mam Program. 

In Subroutine NUMBER. = 1 when the number is negative. 

= 0 otherwise. 

In Common CIRCIT. Target circuit node of the I' th element. 

In Common GAG. An alias for GAG(I). 

In Subroutine FINE. An alias for the TYPE array. 

In Common SPEED. The abscissa points for Subroutine 
PRTPLT. 

In Common BITS. The coefficients of the Taylor Series 
computed by Subroutine TAYLOR. 

In Common WORST 1. Tolerance value for the F th element. 

In Common BITS. The interval between the first and last 
points plotted.* 

In Common TREE. = 1 when Subroutine FINE is to be called 
to build a circuit tree. = 0 otherwise. 

In Subroutine GRAPH. An alias for TYPE(I). 

In Common CIRCIT. = 0 if the I' th element is a Current 
Source (Link). = 1 if the I 1 th element is a Voltage Source (Brand 
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Tl, T2,T3 
V(I) 

VDERIV(I) 

VM{I, J) 

VN(I, J) 

VNSENd, J, K) 

YPATH(I) 

VNOO(I, J) 

VNOKI, J) 

VN10(I, J) 

VPATH(I) 

VW(I, J) 

W 

X 

Y 

Z(D 


In Common BITS. Coefficients for the pulse response 
Transforms. 

In Common SPEED. The value of the I' th loop in the 
flowgraph. 

In Subroutine POLSEN. The symbolic derivative of the 
Transfer Function Denominator. 1=51+ power of s. 

In Subroutine ANSWER The Function after normalization. 

In Common CIRCIT. VN{I, 1) Transfer Function Denom- 
inator. VN(I, 2) Negative Transfer Function Numerator, 
1=51+ power of s. 

In Common BITS, POLY. Sensitivity Function of K' th 
element. J=1 for Denominator, J=2 for Numerator, 

1=5 1 + power of s . 

In Common BITS, PATHS. Value of the I 1 th flowgraph 
transmittance. 

In Common POLY. -H(P, Q) for the J' th element. 1=51+ 
power of s. 

In Common POLY. H(P' ,Q) for the J 1 th element. 1=51+ 
power of S. 

In Common POLY. -H(P, Q’ ) for the J 1 th element. 1=51+ 
power of S. 

In Common PATHS. Value of the I’ th flowgraph trans- 
mittance. 

In Common WORST 1. Square of the Worst Case Function. 
1=51+ power of s. J=1 for Denominator, J=2 for Numerator. 
In Subroutine FINE. An alias for FREQ. 

In Subroutine POLSEN. The Numerator of the Real part 
of the Pole Sensitivity Function, -QH(P, Q) or VN10(I, J) 
evaluated at a pole. 

In Subroutine POLSEN. The Numerator of the Imaginary 
part of the Pole Sensitivity Function, -QH(P, Q) or 
VN10(I, J) evaluated at a pole. 

In Subroutine FINE. The impedance of the I' th element. 
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A. 2. 2 
ADJUST 

ANSWER 

ASCAN 
BLOCK DATA 

BSCAN 

CALC 

CALCR 

CLEAR 

CSCAN 

EQUAL 

FINE 

FLIP 

GRAPH 

INBIT 

INPUT 

INVERT 

ISORT 

LOOPS 

LOR 

LOX 


Dictionary of Subprograms 

In the Plotter. Re-evaluates the first 5 sample points 
via a Taylor Series. 

In the Transfer Function package. Prints Transfer and 
Sensitivity Functions normalized and formatted. 

A Card Scanning Utility. Scans for certain characters. 

Part of the Mam Program. Initializes Common Blocks 
DATA, X and GAG. 

A Card Scanning Utility. Scans for certain characters. 

In the Transfer Function Package. Evaluates current 
equations from the circuit tree. 

In the Plotter. Uses the Routh Stability Criterion to 
determine if the current SIGMA value is acceptable. 

In the Transfer Function package. Removes trans- 
mittances m the Flowgraph which have been marked 
deleted. 

A Card Scanning Utility. Scans for certain characters. 

A Bit Manipulation Utility. Performs various operations 
on blocks of word in Common Block BITS. 

A Circuit Description Analysis routine. Builds a circuit 
tree for a user -specified frequency. 

In the Plotter. Computes the Fast Fourier Transform 
coefficients. 

In the Transfer Function package. Builds the Flowgraph 
except for the unknown transmittance. 

A Bit Manipulation Utility. Sets bits m blocks of words 
m Common Block BITS, 

In the Plotter. Evaluates the transform of the response. 

In the Plotter. Controls the execution of the Plot Request. 

A Card Scanning Utility. Converts numeric characters 
to fixed binary values. 

In the Transfer Function package. Computes Transfer 
and Sensitivity Functions from the Flowgraph, via the 
Shannon-Happ formula. 

A Bit Manipulation Utility. Performs ' OR' mg. 

A Sit Manipulation Utility. Performs 1 AND’ mg and 
subtracts the result from the arguments. 
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LSTOR 

MAIN 

MSG 

MULT 

NASAP 

NUMBER 

PLOT 

POLSEN 

PRTPLT 

READ 

REDUCE 

ROOTS 

ROUTH 

SAMPLE 

SCALE 

SCALER 

SENSC 

SENSIT 

SHIFT 

SORT 

TAYLOR 

UNITS 


A Bit Manipulation Utility. Copies one word into another. 

The Mam Program. Controls execution of NASAP -70. 

A Card Scanning Utility. Prints a diagnostic. 

In the Sensitivities and Worst Case package. Multiplies 
polynomials. 

A Circuit Description Analysis Routine. Interprets the 
standard form of circuit description data and builds a circuit 
tree for minimum computation time. 

A Card Scanning Utility. Converts alphanumeric repre- 
sentation of numbers into floating point values. 

In the Plotter. Interprets Plot Request Cards. 

In the Sensitivities and Worst Case package. Computes 
Pole sensitivities. 

In the Plotter. Prints and plots the calculated response points. 

A Circuit Description Analysis routine. Interprets the special 
form of circuit description data. 

In the Sensitivities and Worst Case package. Decodes tags 
from the S or LS arrays. 

The Rootfmder. Finds poles and zeroes of the Transfer 
Function. 

In the Plotter. Finds an acceptable SIGMA value. 

In the Plotter. Computes the initial Fast Fourier Transform 
points. 

In the Plotter. Scales the Fast Fourier Transform coefficients. 

The Automatic Scaler. Re -adjusts, if necessary, circuit data 
values to avoid floating overflow. 

In the Sensitivities and Worst Case package. Computes 
Sensitivity Functions. 

In the Sensitivities and Worst Case package. Interprets 
Sensitivity Request Cards. 

A Card Scanning Utility. Eliminates blanks and commas. 

A Card Scanning Utility. Converts numeric characters to 
floating binary values. 

In the Plotter. Computes Taylor Series coefficients. 

A Circuit Description Analysis routine. Prints a message. 
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UNPAK A Bit Manipulation Utility. Removes bits from blocks m 

Common block BITS. 

WHAT In the Transfer Function package. Interprets Transfer 

Function Request cards. 

WORST In the Sensitivities and Worst Case package. Interprets 
Tolerance Cards. 

WORSTC In the Sensitivities and Worst Case Package. Computes 
the Worst Case function. 
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A. 2. 3 
A 

BITS 

CIRCIT 

DATA 

ERR 

FLAG 

GAG 

NTEMES 

PATHS 

POLY 

SPEED 

TAG 

TREE 

WORST 1 
X 


Dictionary of Common Blocks 

The Card Buffer. Contains the last card read. 

The area for bit manipulations. Also used to hold the Fast 
Fourier Transform coefficients. 

Contains data compiled from the circuit description. 
Contains alphameric characters. 

Contains the Error flag and scaling factor. 

Contains a utility flag. 

Contains Sensitivity Tags. 

Contains the number of words per block m BITS. 

Contains the Flowgraph paths. 

Contains polynomials used to compute Sensitivity and Worst 
Case Functions. 

Contains Flowgraph loops. Also used by the plotter. 
Contains a utility flag. 

Contains the switch for building a tree for user -supplied 
frequency. 

Contains data for Worst Case Analysis. 

Contains numeric characters. 


In the interest of saving space, some Common Blocks (especially 
BITS) are used for various purposes at different times. 
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appendix b 

MODELS FOR COMPUTER AIDED CIRCUIT DESIGN /ANAL YSIS PROGRAMS: 
PART I. COMMON TRANSISTOR MODELS, A SURVEY 

By Donnamaie E. Meyerhoff 1 

INTRODUCTION 

The analysis of circuits by computer depends upon the ability of the 

analyst to appropriately simulate device performance by a model consisting 

of the recognized parameters of the CAD program being utilized. The analyst 
* 

must work with a lumped model of the device m question if he is to remain 

within the limits of a CAD program, and he must also select appropriate 

approximations to be made m the representation of the device behavior. 

These approximations must be such that they simplify analysis while mam- 

1 2 

taming an acceptable level of validity m the results 3 

A model is a mathematical entity with precise definitions of its 

variables and their relationships. It is never completely equivalent to the 

physical device, rather, the behavior of the model approximates that of the 
2 

physical device. The development of a semiconductor model requires: 

(1) formulation of the ideal voltage -current equations and definition of the 
topology of the model, (2) modification for actual device performance, (3) in- 
vention of techniques for measurement from which model parameters may 

3 

be extracted, (4) the extraction of those parameters 

An ideal model will (1) incorporate parameters either measurable 
or derivable, as from a manufacturer' s data sheet,' 1 ' (2) involve param- 
eters acceptable to the given CAD program (facilitating analysis), (3) be 
sufficiently simplified to be comprehensive, to promote invention and design, 

t 

and to be economical, (4) be complex enough to assure a tolerable degree 
of accuracy m the simulation of device performance over the operating 

^Northrop Corporate Laboratories, this work was prepared while the author 
was with TRW Systems Group, California 

jO 

n Used with discretion 
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12 4 5 

range desired. * 1 * The less complicated the model, the more restricted 
its range of application 

The primary concern of the circuit analyst is with the characterization 

of the external behavior of the device (functional modeling) without detailed 

simulation of internal processes (physical modeling) although an understanding 

2 

of the Internal processes must be assumed. 

The selection of an appropriate model and its parameter values to 

correspond to given device operating conditions (temperature, biasing, load, 

etc. ) for the circuit under consideration is the critical step m analysis, with 

or without computer assistance as the model finally selected will be the 

5 6 

limiting factor m the degree of accuracy of the results ’ 

The following discussion is concerned with transistor models and their 
representation m present general purpose CAD programs. Diodes are more 
easily represented and are omitted here for brevity 

Transistors were selected to demonstrate CAD program modeling 

because the majority of circuit analysis is still primarily concerned with 

» 

them, and because their models are presently the primary building block 
of Integrated Circuit modeling. It should be emphasized that there is no 
single transistor model capable of simulating all regions of operation for 
all applications, a model this capable would be prohibitively complex 

This description of modeling is divided into two sections* (1) small 
signal (linear, incremental) models, and (2) large signal (nonlinear) models. 
The models are not derived here, the reader is referred to the appropriate 
references for the derivations. 

SMALL SIGNAL MODELS 

A small signal is defined as an AC signal significantly smaller m 
peak to peak amplitude than the DC bias upon which it is superimposed. 

Small signal transistor models are intended to simulate the behavior of 
a transistor at a specific operating point m the linear region of operation 
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The transistor model is constructed of parameters that remain relatively 

constant over the voltage and current swings encountered. These parameters 

7 

are then assumed constant for the analysis. 

The small signal models are not versatile, large signal swings may 
not be accurately analyzed (due to the lack of parameter variation and the 
linearity of the model), saturation and cut off are not represented. The 

g 

model is valid only m the active region. Although it is limited in its appli- 
cation, the small signal model provides a straightforward method for simu- 
lating transistor performance when the operating restrictions have been 
satisfied. 

A family of small signal models composed of h, y, z, and r param- 
eters (see for examples References 7 to 10) exists for the user and the most 
commonly applied models are given here. The input formats for the models 
for the CAD programs which accept them are also presented. The common 
emitter configuration is used m most cases to facilitate comparison. 

Low Frequency Models. The two commonly used configurations are the 
Hybrid and the Tee using h and r parameters respectively. 
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The Hybrid Model is considered the best model for small signal representation 
because (1) the h parameters are real numbers at low frequencies, (2) the 
parameters may be easily obtained by measurement when required or from the 
device static characteristic curves, (3) if the h parameter of one config- 
uration is available, the conversion to another configuration is relatively 
simple The Hybrid Model is valid for any configuration at low frequencies, 

g 

for a device operating m the active region 



Program Models . SCEPTRE has a prestored hybrid model for small sig- 
nal analysis. The program accepts the voltage generator (EA) described as a 
function of the voltage across ho (R2 m the diagram below) and the current 
generator (JB) described as a function of the current through hi (R1 below). 11 
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If the Tee model is preferred, SCEPTRE will accept a user -description for 

that model without requiring modifications in the representation. ECAF, 

however, w il l not accept a nonlinear dependency and requires the conversion 

of the hybrid model voltage generator into a DC bias and some resistance 

such that the branch* resulting is a linear approximation of the performance 

of the original generator. The current source is dependent linearly on the 

12 

current through R1 and it is not modified. 


Bi 2 3 



branch — one impedance with or without a source between two nodes, ECAP 
requires a "dummy” impedance in parallel with an I source, and in series 
with a V source, IK is used. 
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High Frequency Models 


F « 


The two most commonly used 


2D b ] 

2 
w 

configurations are the Hybrid-Pi (Figure B-5) and the Modified -Tee (Figure 
B-6). Their parameters are not frequency dependent and most manufacturers 
provide data for one of them. 



a Analytical Hybrid Pi b Reduced Hybrid Pi 


Figure B 5 Hybrid PI 


This circuit is known to give results m excellent agreement with experiment 
m the range dc to limiting frequency of the device, that frequency where the 
gam is significantly reduced and operation is no longer validly assumed 
linear 

The reduced version of the circuit is justified when source or load 

impedances or other factors or uncertainties swamp the effects of various 

parameters Parameters r^ t ^ and r ce are considered approximate opens m 

Figure B -5b, C, , , C, are lumped and include C m ® 
b' e b' c T 

The Modified Model is generally used for common base circuits, and 

is limited m transient response analysis m range of operating biases and 
9 13 

bandwidth ’ ' The Simplified Tee uses one base resistance, and r^ is an 
approximate open 
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Program. Models ECAP will accept the Hybrid -Pi m either form, although 
the reduced version is the most commonly used. The current dependency is 
linear and the elements must be single valued. 



3 3 


Figure B 7 ECAP - Hybrid PI 
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SCEPTRE has no prestored Hybrid-Pi but the user may enter a model 

which describes the current generator as a function of I , , , and which is 

rb 1 e 

not restricted to single valued elements 

There are numerous other small signal models, the ones presented 
above are the most commonly applied to small signal analysis. There are 
more complex circuits for device simulation at higher operating frequencies 
and for noise analysis 

LARGE SIGNAL MODELS 


A large signal is defined as an AC signal with a peak to peak amplitude 
that exceeds the DC bias upon which it is superimposed Large signal tran- 
sistor models are intended to simulate the behavior of a transistor when its 
operation encompasses more than one region of operation, or when its 
operation enters the nonlinear portion of the device characteristics 


There are four regions of operation for a transistor (See References 
13 - 17. ) They are. 


I. Cut -off Region Collector current cut-off or collector voltage 

saturation, both junctions are reverse biased, only small reverse 
saturation currents flow across the junctions 


I <.0 
e 




V 


CB 


« 


kT 

q 


The transistor behaves as an open (nonconducting) switch 


n. 


Normal Active Region Emitter junction forward biased, collector 


junction reverse biased, 0 < 1^ < 



« 


kT 

q 


HI. Saturation Region. Collector current saturation or collector 
voltage cut off, both junctions carry a forward bias, < - — 
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the voltages across the junctions are m the millivolt range. The 
transistor behaves as a closed {conducting) switch. 

IV. Inverse Active Region, Emitter reverse biased, collector for- 
ward biased, similar to normal active with emitter and collector 
interchanged, low reverse current gam. 

Large signal operation for transistors includes power applications and 
switching (an extreme case where the device goes rapidly from Region in to 
Region I and vice versa, and generally includes the first three regions of 
operation. 1 ^ 

Small signal models dealt only with Region H The parameters were 

assumed to remain constant and operation was approximately linear Large 

signal modeling is complicated by the variation of parameter values with 

changes m voltage and current, the thermal and power limitations that must 

7 9 

be accounted for, and the nonlinear behavior of the device. * 

There are three primary models used for large signal analysis (1) the 
Beaufoy-Sparkes Charge Control model; (2) the Ebers-Moll model, (3) the 
Lmvill -Lumped model 

In their paper "Comparison of Large Signal Models for Junction Tran- 

ti 4 

sistors, Hamilton et al, had the following conclusions about the three 
models. 

First, the three models are all described by two first order ordinary 
differential equations. The main difference in the equations is in the de- 
pendent variables. The same four measurements provide the values for 
parameters for Ebers-Moll and the Beaufoy-Sparkes models and determine 
the characteristics equation of the Lumped model. (Table B-I shows parameter 
conversion for #1 and #2, and Figure B-14 demonstrates equation similarity 
for #2 and #3 ) 

Second, although each model is derived by means of approximations 
made at different stages of the theoretical development, the final overall 
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degree of approximation is the same. The models have the same natural 
frequencies and give the same results for transient problems. Therefore, 
as far as numerical results are concerned, the three models are equivalent. 

Last, the Charge Control model is considered more cumbersome in 
application that the Ebers -Moll model, the Lumped model is considered the 
most general m development approach. 

The Ebers -Moll Model . The well-known Ebers -Moll equations for 

device operation are given below. They are valid for any transistor m low 

level injection, regardless of shape, which has negligible voltage drop every- 

1 8 

where but the junctions. They are also valid for a graded base region device. 

The Ebers -Moll model for Regions I, and II is based on these equations 
of ideal device operation. To more closely approximate actual device per - 
formance resistances r^, r^, r^ must be added. The model is completed 
for high frequency by adding C^, C^ c 

Program Models: Two CAD programs have prestored versions of the 
Ebers -Moll model for the first three regions of operation, NET-1, and. 
SCEPTRE The Ebers -Moll based model is the only model available with 
NET-1 for circuit analysis, and it requires all of its parameters be pre- 
stored for each device prior to its use m analysis, a requirement that has 
been found to be too restrictive. 

SCEPTRE uses a more flexible prestored Ebers -Moll model. The 

user must have access to I co , I EQ , 0^., 0 , to describe J x and J g {current 

generators) or may enter tables of laboratory measurement data. R^ and 

R may be omitted from separate representation when measurements are 
cc 

used since they are included m the values for and J^. If ~ 0, JA 
may be omitted. 
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a) IDEALIZED EQUATIONS 


^CO ( 
-l) + l-V*! ^ 


^EO 


r EB -0-1=^- C"™ 1 ) 


’b ■ - r c - hs 


a N " a I J CO 


r) = 1 


reciprocity requirement 

valid when the transition region has no effect 
n ~ 1 for germanium, rj ~ 2 for silicon, 1 = rj = 3 


b) IDEALIZED MODELS 

TERMINAL CURRENT CONTROL TERMINAL VOLTAGE CONTROL 




B 


C TE * P(V EB> 


r ef ' “i 

1— c 
O 

C TC = F * V Cb' 

V 
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*ef 
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11 
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* 0 . 
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e 
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cf 

I 

cs 
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c 
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Figure B 10 NET — 1 Transistor Model 
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JA = o^Jl 
JB = « n J2 


8 V 

NB ' E -0 
» * to (* ^ C - 0 


where 8 - — ^ 


rjKT 


Figure B 11 SCEPTRE Prestored Model 


Charge Control Model. The concepts of charge control 'haay be briefly- 
summarized as (1) the base charge (qB) may be defined uniquely by the past 
behavior of the base current, (2) the collector current is proportional to the 

- 1 g 

base charge, is controlled by the base charge. The active region model 

17 20 21 

and its equations are given m Figure B -12 * J 

The similarity of the charge control model and more familiar param - 
eters is seen by the relations 


T BF 






(Forward Injection) 
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Figure B 12 Charge Control Model and Equations (NPN Device) 


The similarity of the charge control model and more familiar parameters 
is seen by the relations 


Ir , 

Fe 1 



Program Models: CIRCUS includes a radiation -pulse current generator 

22 

m its prestored charge control model. CIRCUS requires that the user define 
13 single valued parameters and 4 parameters that are single valued or tabled. 
The program equations are 
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— 1 N- + «N T CN (?N +I „) 

(vO 1 

if- +e ! T ci (h + 'a) 

( e 2 - v bc) 


: be= ( 

|3N + 0 I N h 

r = ” I, T + f 'ey + 1 

[be N \ J3I 

*N = J es 

(e N be -l) 

, 0-r V x. 

h^ca ( e - 1 ) 


V' T CN f (?N ) h T CI ~ £ ( £ I ) 


N j N are proportionality constants 

_L ct 

These parameters may be converted to Ebers-Moll parameters 

TABLE B-l 

CHARGE CONTROL TO EBERS -MOLL CONVERSION RELATIONS 


Charge -Control Ebers-Moll Charge -Control Ebers-Moll 


I 

es 


I 

cs 


°N *es 

1 " Vi 


O' I 
I cs 


1 - O' T or T 
N I 





27 ra^Fj 

38.9(298) 

M (T + 273) 
e 


_ 

M KT 


e 


T 

CN 



n 38 9 (298) _ q 

M (T + 273) = M KT 

e c 


Other parameters correspond directly. 
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induced pulse -currents 


Figure B 13 CIRCUS Prestored Charge Control Model — NPN 22 


The Lmvill Lumped Model The Lmvrll model uses lumped elements 
to represent paths through which charge will flow m a transistor, the rate 
and amount of this charge -flow being governed by hole and electron concen- 
trations and voltage The lumped elements are given m terms of length 

dimensions and electrical constants. A reduced lumped diffusion model for 

1 23 — 25 

a transistor is given m Figure B -14 ' 



B 


Figure B 14 LinviH's Two Lump Transistor Model 
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Equations Showing Parallel to Ebers-Moll Model: 


-L- V /M 6 

I ( e e e 


'N dt 


1 Igo (. 

1 ‘ Vi v 


V /m 0 
e e 


h NCO_ / c c A + d / v \ 
1 - or, T or T \ } dt \ je e ) 


T -Jco ( v c lM c e -i) .ti [^SS— (. 

*c = iTZT (, e > 1 dt [1 - Vi V 


V /M 0 
c c 


+ VeO_ (e W_ l)+ d / c v N 

1 - V / dt \ jc c/ 


where: 


A -p (g 1 + a G ^ A - p (g + a G , ^ 

EO = n \ rl I r2 / CO — n \ r2 N rl / 


T A = — 

= G.+ G _ 
d rl 


Ch 2 G d G d 

T I - C.+ G ' ~ G + G a I ~ G + G 

d r2 rl d r2 d 


G rl- ° r3 


diffusion current generator 


recombination centers 


Ch , Ch storance 

1 & 

P , P excess h 

cc ce 


V /M 9 

excess holes m collector, emitter. P A p (e 

cx- n \ 


Program Models A version of the Lanvill model has been developed 

26 

for use as the prestored model for the TRAC program. The model and its 


parameters are shown m Figure B -15 The model is dependent on past values 
01 V cb- V eb' ( V 0 b _1= V C' V 1 ' V E for the ] * h 5tep ) 
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Figure B 15 TRAC Model — Prestored Lumped Model— IMPN 
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SUMMARY 


The most commonly used small signal models, the Modified Tee and 
the Hybrid -Pi, have been presented with a description of the CAD programs 
that accept them. The three large signal models have also been briefly pre- 
sented with a discussion of the CAD programs that have incorporated them. 

The Hybrid -Pi is suitable for AC and small signal transient analysis 
and is the most effectively used model for ECAP 

Large signal analysis requires a degree of complexity ECAP cannot 
accept without a loss of efficiency and accuracy. NET -1 attempted analysis 
with only a complex Ebers-Moll model with extensive data requirements and 
this has been found severely restrictive. TRAC has attempted analysis with 
only a complex version of the Lmvill model and has met the same restrictions. 
CIRCUS attempts analysis with a charge -controlled model with less stringent 
requirements, is more effective but is also restricted. Some piece -wise 
linear modeling may be effected but this is generally cumbersome, especially 
without a dependent current source 

SCEPTRE is the first major program to combine the features of the 
prestored models and the flexibility of the user -derived models SCEPTRE 
is capable of both small and large signal analysis with its prestored models 

It should be reemphasized that there is no single model capable of all 
analysis since such a model would be cumbersome and overly complex for 
any given analysis just as there is no ideal CAD program to perform analysis. 
The selections of the model and the program are both determined from con- 
siderations of the application of the device, the availability of parameter data 
and the accuracy requirements of the solution among others. 

Table B-II presents a summary of some major CAD programs and the 
models included m this paper. Table B-III is a summary of symbols applied 
throughout the text. 
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TABLE B -II 

PROGRAM MODELING CAPABILITIES 


Program 

NASAP 

ECAP 

SCEPTRE 

CIRCUS 

TRAC 

NET-1 

PREDICT 

Model: 

Small Signal 

Low Frequency 
Hybrid 

E 

E 

P 

N 

N 

N 

E 

Tee 

E 

E 

, E 

N 

N 

N 

E 

High Frequency 
Hybrid -Pi 

E 

E 

E 

N 

N 

N 

E 

Modified Tee 

E 

E 

E 

N 

N 

N 

E 

Large Signal 

Charge Control 

D 

D 

E 

P 

N 

N 

E 

Ebers -Moll 

D 

D 

P 

D 

N 

P 

E 

Lmvill Lumped 

D 

D 

E 

D 

P 

N 

E 


Key 


E Engineer Derived 
P Prestored Model 
D Inefficient, difficult 
N Not acceptable 



TABLE B-m 

KEY TO SYMBOLS USED IN TEXT 


A manufacturer 1 s data sheet typically contains information on I , 

co 

V CE(sat) ) V BE<sat>- h FE (Beta) ' C ob and f T' as wel1 as stress llmlts for 
the device. Many also include the small signal parameters h , h. e> h , 

h^ e (AC amplification). Based on this information and the knowledge of what 

load current is desired (small signal operating point or large signal — maximum 

stress on the device) the designer /analyst must derive the parameter values 

(or functions of values) for the selected device. 


The following is a tabulation of the symbols used m this paper and their 
definitions Those parameters necessary for analysis include the generally 
applied approximation for their computation. 


B, B» ; b, b* 


Base terminal, suffix -parameter related to base 
characteristics 


C, C 1 , c, c 1 


'b* c 


"b 1 e 



C 

e 


Collector terminal, suffix -parameter related to 
collector characteristics 

Capacity from base internal point to collector, 
generally labeled C ^ on data sheet 

Capacity from base internal point to emitter 

r 1 g m 

b’e~ W T r e ~ 27Tf T 

Collector, emitter capacity - large signal symbol 



or C 

de 

or C 
sc 



Diffusion capacity of emitter, collector, corresponds 


to C 


b> e* b’c 



Transition capacity, C T « C and .’. generally 
omitted 6 


E,E* , e, e* 


Emitter terminal, suffix -parameter related to base 
characteristics 


f 

a 


Alpha cut off frequency. 


f ft! 

a 


o p 


Beta cut off frequency 



Current gam - bandwidth product 
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for 


m , , “N fe 

Trans conductance, g = — - , g = - - -- — , 

& m r m 1+hf 
e e 

germanium, room temp, » 1^ in ma, g 


Input impedance, small signal, ~ — — 

13 

Feedback voltage ration, small signal. 


AV , = 0 
out 


A i =0 
in 


Current transfer ratio, small signal, 
/3 ~ h 


V = 0 
out 


Output admittance, small signal. 


r v * r 
b* ’ b ’ b 


Collector to Base saturation current when I_ = 0 

E 

Emitter to Base saturation current when I =0 

- 5 ^ 

Boltzmann 1 s Constant (8 6 310 ev/°K 

Emitter, collector proportionality constants (1 ^ M i 3) 

X 

(emission constant) 

Electron density 
Hole density 

-19 

Electron charge (1 6 x 10 coulomb) 

Control charge m base region 

Components of r , base resistance generally r^, £ 0 

compared to circuit components (r, , , = h - r , ) 

bb' le b’ e 

Small signal base resistance. Tee configuration. 


Y> /V 

b ~ 


hh 

n -4^ 

i h 

o 


B -22 



r, , 
b 1 c 



r 

ce 


r 

e 



*N 


a 

o 


b 

% 

L 

X 

V 


*e' *c 


u 


a_ 


Resistance -base internal point to collector, generally 
very large, appears as an open to a CAD program . . 


generally omitted, 


" b l e 


1 


b 1 c h 




re °b* c 

Resistance -base internal point to emitter, r. 


b' <^ +1)r e 


Collector resistance as 
generally omitted ° 


also appears as an open 


h 

h 


2? kT kT 

Emitter resistance, ~ r — x -7— at 27 °C, — = 26 mv 


qi 


Base store 


Absolute temperature - Kelvin 
Electron-volt equivalent of temperature, V T = 

Inverted current gam 
Normal current gam 


kT 


Low frequency a. 


N 

OL. 


Inverted Beta 


Normal Beta 


1 -ql 


a . 


N 


1 ~ a. 


N 


Current gam at edge of saturation 

symbol for simplification (also Q), X = —— 
Parameter accounting for recombination of carrm-s 
m the 3unction transition region, dependent on material 
77 1 for germanium 

17 k 2 for silicon 


15^3 


Junction voltages (V, , , V, . ) 

b 1 e b 1 c 


Alpha cut off frequency, radians 


B -23 



w 

w T ~ ~Y~ = 2 7T current gam bandwidth product 

Base charge time constant 

T._ Collector charge control time constant 

^ 8 

Typical Values of h parameters 

(common Emitter Configuration) 

h 1, 100 

ie -4 

h 2. 5 x 10 

re 

h. 50 

fe 

1/h 40K 

oe 
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PART II. TRANSISTOR MODELS FOR HOSTILE (WEAPON) 
ENVIRONMENT EFFECTS 


INTRODUCTION 

The present concern of circuit specialists, both designers and analysts, 
has been the degradation of systems upon exposure to nuclear radiation, spe- 
cifically that resulting from the detonation of a weapon. 

The inability of system shielding to be effective for all radiations 
makes it necessary to design and analyze for the generation of radiation- 
induced transient and permanent effects m semiconductor devices. There 
is no laboratory procedure capable of providing either the mixture or the 
intensity of the radiations produced m a real weapon environment, which 
may consist of any mixture of photons, charged particles or neutrons As 
a result, it becomes necessary to turn to the computer. Several computer 
circuit analysis programs, such as SCEPTRE, CIRCUS, and TRAC, have 
been developed specifically for the analysis of transient radiation effects on 
circuits. 

The purposes of this paper are (1) to describe the first order radiation 
effects m semiconductor material m terms of the weapon environment, (2) 
to describe the physical interactions which produce the altered device behavior, 
and (3) to discuss the computer program models available for the analysis of 
an exposed device. The discussion is primarily m terms of bipolar tran- 
sistors. Because of the practical complexity of a discussion of a weapon or 
space radiation environment, such a discussion is not attempted here. 

THE FIRST ORDER EFFECTS 

Radiations consist of high energy photons such as gamma rays and 
energetic particles such as neutrons, electrons and fission fragments. 

The effects initiated by the high energy photons are primarily transient 
ionization and excitation of the absorbing material. The effects initiated by 
the energetic particles, specifically neutrons, are primarily localized bulk 

PRECEDING PAGE BLANK NOT FILMED 
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displacements, disruptions of the crystal lattice structure along the particle 
path Because of the obvious complexity of a simultaneous discussion of 
each radiation expected m an incident environment, the two classes of 
radiation will be discussed separately. 

IONIZATION 

The ionization effects of a pure photon environment result from the 
interaction of the photons and the atomic electrons of the absorbing material. 
The photon-atomic electron interaction produces charged particles which m 
turn produce ionization through further interactions. 

The three primary photon-atomic electron interaction processes are * ' 

1. The Photoelectric Effect The inelastic collision of a photon and an 
atomic electron, the photon energy is absorbed by the electron which 
is ejected from the atom if the photon energy exceeds the binding 
energy of the electron. The extent of the photoelectric interaction 
is dependent on both the photon energy and the atomic number of the 
absorbing material and is most important at low photon energies for 
materials of high atomic number 

2. The Compton Effect The elastic collision of a photon and an atomic 
electron of the absorbing material m which part of the photon energy 
is transferred to the electron, both the electron and a reduced -energy 
photon are scattered. The Compton effect is most important m an 
energy range between 100 KeV and 4 MeV and is more significant 

for materials with a high atomic number 

3 . Pair -Production The interaction of the electric field of the atomic 
nucleus (or the field of an atomic electron) and a photon m which the 
photon energy (when E is > 1 02 MeV) is absorbed m the formation of 
an electron -positron pair The positron is rapidly annihilated by an 
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electron with the interaction resulting m the production of two 
lower -energy photons. Pair -production is most important for high 
photon energies and is especially important for heavy elements It 
is the major reaction process for high energies 

The result of each of these three major interaction processes is the 
production of one or more secondary electrons. The Boulomb interaction 
of these electrons produces additional ionization and excitation. Successive 
generation of the interactions ceases when low energy electrons are produced 
which do not have sufficient energy to continue the production of ionization 
or excitation. These last -order electrons will lose energy by elastic scat- 
terings until they are either captured or thermalized 


phot on - 

atom 

interactions 


Coulomb interaction and successively gen- 
erated interactions 

Interactions Produced m a Photon Environment 


secondary/^ excitation 

electron -r — *- 

, , X ionization- 

production X 


/ 


low order 
"electrons 
(low energy) 


captured 


Thermalized 


Ionization is also created by energetic particles. The ionization effects of 
a primary beam of charged particles (electrons, positrons) are identical to 
the ionization effects of the secondary electrons produced by photon irrad- 
iations. Heavy charged particles (protons, fission fragments) create ioni- 
zation along the primary particle path of such a high intensity that electron - 
positron charge recombination occurs rapidly. The net effect of the heavy 
particles is less than the effect of an equivalent, more uniformly distributed 
energy deposition ^ 

Neutrons are heavy uncharged particles that produce ionization only 
through secondary processes. Neutron ionization effects are a function of 
neutron energy. The important neutron interaction processes are (1) 
elastic scattering- a collision of a neutron and a nucleus with transfer of 
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kinetic energy, and (2) inelastic scattering - a collision of a high energy 

neutron and a nucleus with conversion of some of the neutron kinetic energy 

into excitation energy m the struck nucleus. The excited nucleus returns to 

1 2 

its stable state by emitting the excess energy as a photon * 

Ionization produces primarily transient effects m the incident material, 
displacement produces primarily permanent effects 

DISPLACEMENT 

For the typical energetic neutrons produced m nuclear reactions, the 
production of atomic displacements is the principal interaction process through 
which neutron energy is dissipated. Displacement effects are the result of 
defects m the crystal lattice structure that introduce additional energy states 
mthe energy band gap. These defects behave either as additional recombi- 
nation centers, which can produce a reduction m minority carrier lifetime 
or they can alter the impurity concentration of the affected material, which 
can produce alterations m the physical properties of the material Large 

defect clusters result from a neutron interaction m which a large amount 

4 

of the neutron kinetic energy is transferred to a single atom. 

Ionization and displacement defects can produce significant alterations 
m the electrical behavior of the affected material. 

MANIFESTATION OF THE EFFECTS 

The most significant result of the three primary photon -interaction 
processes is the production of free electron-hole pairs. The number of 
electron -hole pairs created m semiconductor material is proportional to 
the amount of energy absorbed from the radiation environment The dif- 
ferences between the exposure and absorbed radiation environments can be 
a complex function of the equilibrium radiation environment at the specimen. 
The complex prediction of carrier generation rate may be simplified by 
considering the energy deposition to be uniform throughout the geometry 
of the device if the incident particle or photon energy exceeds 200 KeV 
For photon or electron irradiation between 1 to 5 MeV, the absorbed dose 

3 

is essentially identical to the exposure dose 
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Radiation induced carrier generation in the bulk semiconductor will 
increase the minority and majority carrier densities. 

An = Ap = g Q 7(t) (B-l) 

The change m majority and minority carriers is seen to be equal and there- 
fore the relative effect on minority carrier density is greater The minority 
carrier density increase results m the junction photocurrents and secondary 
photocurrents m diodes and transistors. 


Displacement damage in the bulk semiconductor introduces a number 

of recombination centers, which is generally assumed to be proportional to 

the integrated neutron flux. The primary result is the reduction of minority 
(4) 

carrier lifetime. 


1 _ 

r F 




(B-2) 


where 

t f 

is the new lifetime 


T 

O 

is the initial lifetime 


K 

is the lifetime damage constant 


$ 

is the integrated neutron flux 


In terms of device performance, the reduction m minority carrier life - 

time produces a transient reduction m the forward gam of a transistor that is 

not completely recovered. The damage value of Beta for a single radiation 

4 

pulse may be obtained from the Messenger -Spratt Equation* 


1 1 0.194 $ 

~ j3 + f K 
F ^o a 


(B-3) 


The detailed analysis of displacement damage m transistors is complicated 
by the variation of the common emitter current gam (j3) with the injection 
level. 
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THE PHYSICAL DESCRIPTION 


In semiconductor material, electrical currents are the result of the 
motion of either holes or electrons and are associated with two independent 
mechanisms (1) Drift motion, the result of charged particles being acted 
upon by an electric field, and (2) Diffusion, the result of the tendency of 
carriers to diffuse from regions of high charge concentration to regions of 
low concentration. The net current density is the sum of the drift and dif- 

5 

fusion component currents. 


Carrier density that is greater than the equilibrium carrier density 
is termed excess carrier density. Excess carriers can be introduced by 
electrical, optical, thermal or radiation injection mechanisms Excess 
carriers are opposed by the recombination process (mutual annihilation) 
by which holes and electrons are removed from circulation as charge car- 
riers. The net rate of recombination of excess holes and electrons is 
approximately 


n-type 


p-type 


Rate = 


Rate = 



P' 


n(x) 


_ n p(x) 


r 

n 


(B-4) 


(B -5) 


for one dimensional, conductive, extrinsic, homogeneous 
material operating with a low injection rate. 

The carrier generation rate by external mechanisms, g, has been 
shown to be g = g Q ^(t) for ionizing radiation, where y(t) is the exposure 
m radians. 

The continuity of current requires 
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(B-6) 


9p = -1 9l p 
8t qA 9x 


( P n{x) ) 


P 


n-type: 


9n _ J_ 8l n _ ( P n(x) ) 
9t qA 9x t 


+ g Q 7 (t) 


+ g Q r(t) 
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The equations of current flow are. 


n-type 


J, = q M p(x) E - q D — 
holes ^ p 1 ^ p/jx 


"^electrons = q ju n(x) E + q D ^ 
n n n n 9x 


I = A , + J 


Drift Diffusion 

^ ) 


holes electrons 
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and the presence of the electric field requires the application of Gauss 1 Law 

N_j(x) - N^(x) + p(x) - n(x)j (B -11) 

5 

The terminal relationships of a device may be derived from these equations. 
To demonstrate briefly the relationship of the physical behavior and the 
transistor models available for computer aided analysis, the equations of 
an ideal diode and an ideal PNP transistor are included Because of the 
complexity of the equations, worst case steady state conditions are primarily 
discussed. 


se / \ a 

to? " ' >(x) ’ c 


AN IDEAL DIODE 

The current appearing at the terminals of this device will be related 
to the internal redistribution of the carriers upon application of a bias po- 
tential. The following analysis is based on an abrupt junction device composed 

of homogeneous n-type and p-type material with a transition or space charge 

0 

layer surrounding the junction of width W. 
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For forward bias, assuming carrier flow by diffusion only 

, . q D n P no / qv/KT \ q D n P n(o) 
n-type J^(o) = — - 1 J = 


(B -12) 


n 


sine I = A (j^o) + ^ °\) J substituting Ln = n/D^t^ an<3 including similar 
expressions for the electrons 


diode forward 


. L p L n 

= Aq (-V s - + 


J22- ) (e qv/KT - 1 ) (B-13) 


n 


= r (e qY/DT - A 
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Adding the effects of the space charge region contribution to reverse current, 
for reverse bias 


diode reverse 


= Aq ( 


L n 


W 


L p 

n no p po m 


n 


) 
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= I 


In a steady state ionizing radiation environment where the carrier 
generation is increased by g^ the equation for reverse bias becomes 


(3) 


X d Aq 


Ln 


( : 


no 


+ 


n 


e o T(t> ) + L p ( Hp + «o 7<t) ) + W (v + g 0 W ) 

P o J 

(B-16) 


The equilibrium diode photocurrent can be seen to be 


tip p = Ac l s° ( '>' ) 


L + L + W 
L n P 


(B -17) 


For pulsed transient photoresponse, the complexity of the equation is con- 

(3) 

siderably increased 


A step function 


response I d (t) = Aq 


L erf ( ^ + W u(t) 

n \T ) 

n 
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Figure B-16 diagrams the minority -carrier concentrations for forward 
and reverse bias, demonstrating the increase in minority carrier density 
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Junction 



n po» ^no “ equilibrium concentrations 


(a) MINORITY CARRIER CONCENTRATIONS - FORWARD BIAS 


, ionization 



IONIZATION EFFECT 
A n p =gT n =g 0 ^T n 

AP n s 9V3 0 / T p 


(b) MINORITY CARRIER CONCENTRATIONS - REVERSE BIAS 



(c) TYPICAL ALTERATION OF V-I CHARACTERISTIC 

Figure B 16 P— N Junction Ideal Diode (1,2,3)' 
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as a result of ionizing radiation absorption Figure B-I6c diagrams the 
alterations of a diode V-I characteristic A current generator l^pp(t) 
placed across the junction m parallel with the high frequency model of 
the device has proven satisfactory as a first -order approximation model. 

THE TRANSISTOR MODELS 


There are three large signal nonlinear models (1) Ebers-Moll, (2) 
the Beaufoy-Sparkes Charge Control, and (3) the Lmvill Lumped Model, that 
have been modified for radiation effect computer analysis 


EBERS-MOLL 


A reversed biased ideal PNP transistor with abrupt junctions, w -j ;) ase < 

Lfoage that is extrinsic and homogeneous m all three regions and that is 

operating with a low injection level is diagramed m Figure B-17 For the 

cut-off mode V_ lT3 «- — — , « , bias conditions are ^ 

LB q LB q 
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electron hole space -charge 

region 

^ = ^ “ : c 
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When ionizing radiation effects are included the equation for equilibrium 
effects (steady state) are 


ij, = q Ajc 


L c It 2 + «o«>) 

nc 


Wb 


(77 +g o (T) ) + X c (f* +g c 
pb 


OC 



= 1 + 1 
c ppc 
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^Figure B 17 PNP Ideal Transistor Minority Carrier Concentrations 
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Similar to the diode approximation, current generators representing i ^ and 
ipp c placed across the junctions of a transistor high frequency nonlinear model 
provide a satisfactory first order approximation model. 

A nonlinear model (capable of cutoff -active -saturation representation) 
is necessary because the photocurrents could be sufficient to turn on the device. 
The photocurrent generators generally replace the i leakage current 

generators m the nonlinear models The equations for active region operation 
may be derived by assuming all current is from diffusion and neglecting the 
space charge layer carrier generation and recombination, then 




I = q A 
c jc l_ 


dP 1 (o) dn 1 (o) -] 

-n D — r — 

b dx e dx 


d P ' (w) d n ’(o)-| 

+ n -4— -D — I— 
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Since P 1 (o), n 1 (o) n 1 (o) P 1 (w) are linearly dependent upon (e 


qV EB /K T 


an d (e qV “ /KT - x) 


verified 


the form of the classic Ebers -Moll equations is readily 
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From the cutoff condition 


I ' = - (l-a^lu+i (B-30) 

E off \ F / ES ppe 

cutoff’ 

V off = ~ “ a R ) r cs + X ppc (B-31) 

Using the same procedure, the equations for general operation under radi- 
ation exposure may be developed 

(B-32) 
(B-33) 


+ l ppe ( ^ 


1 C (T) = *C + W 7 ’ 


The photocurrent effects on the device and circuit are compounded by multi- 
plication of the photocurrent. The secondary photocurrent so produced could 
damage the device if it is sufficiently large. 

Figure B-18a diagrams the Ebers-Moll PNP Transistor model and modi 
fications to include the junction capacitance, bulk resistance and the photo - 
current generators, B-18b shows the version incorporated m the SCEPTRE 
program 


CHARGE CONTROL, 
* 


The characterization of the ideal transistor described above is m terms 
of excess minority carriers An alternate description is m terms of minority 
carrier charge density distribution Figure B-19 is a diagram of charge 
density distribution for the active region of operation The total distribution 
for the four regions of operation is also shown. This is a direct relationship 
between this internal charge distribution and the operating region 


Assuming the ideal device for simplicity and recombination processes 
occur only m the base and are defined by a uniformly constant lifetime 
for steady state conditions the stored excess minority carrier charge (+ q^) 
and the equal majority carrier charge (- q^) are maintained by the base 
current L^. is defined as a sustaining current which supplies majority 
electrons at a rate equal to their loss due to recombination m the base. For 
transient operation, the stored base charge changes with time 
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NOTE- 


a R a CS vc 

(a) EBERS-MOLL DEVICE MODEL ( NPN ) 
(TERMINAL VOLTAGE CONTROL ) 

ippc (t) >> tppe (t) generally 



(b) SCEPTRE EBERS-MOLL MODEL ( PNP ) 
(TERMINAL CURRENT CONTROL) 


Figure B 18 The Ebers— Moll First-Order Approximation to j Effects 
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P. • (w) 
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Edge of collector 
space-charge region 
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(a) MINORITY CARRIER CONCENTRATIONS IN THE BASE 
FOR THE FOUR REGIONS OF OPERATION 



Figure B 19 Excess Minority Carrier Concentrations in the Base Region (PNP) 
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(B-34) 


maintaining charging 


The stored base charge is composed of forward and reverse components of 
stored minority carrier charge as shown m Figure 4 


q B ' q F + q R 


Therefore 


--(£ 


)-( 


By assuming that the base charge is limited to relatively slow variations, 
1 and 1 maybe defined. For DC steady state, forward injection only 

C 6 

^F q F q F , 


For slow variations m i a I„ and 

TB c C 


i = - i - 1, = q„ 
e c b U F 


V t_,_ ) dt 


BF F 


Similar equations can be written for reverse injection ^1 = - — J and the 

R 

total expression for terminal currents of an ideal device become 
q F / 1 1 \ , dq R 

i a - — ^ ( — + ~ — ) + -jT (B-39, 

c t f RVt r t br ' dt 


l e* q F 


i= l - i 
Bee 


dq F q R 
dt - T 


^To include saturation, an increase m the base charge is represented by 


m parallel with 
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Leakage currents 1 , 1 are included and space charge layer charge 

dV . dV . 

0D CD 

storage is represented by the terms c, , — — — and C , — — In the 

J b* e dt ob dt 

complete model as shown m Figure B-20 CIRCUS incorporates the charge 
control model as its radiation model and represents the photocurrents by 
current generators placed m parallel with 1 Iqq exactly as represented 
m the Ebers-Moll model ^ The CIRCUS model and its equations are shown 
m Figure B-21. 

THE LUMPED MODEL 


The third approach to describing device behavior is the Lmvill approach 
of lumped modeling. The simplest model is the 2 -lump model shown m Fig- 
ure 7. The model is based on a description of excess minority carrier be- 
havior similar to the Ebers -Moll approach. The model shown has parameter 
definitions that correspond to the charge -control model parameters Ter- 
minal equations for the ideal device are 


1 = 

c 


H D p b' (o) + ( H D + H Cr) p b. (w > + S R d -^ 


+ c -t 

vc dt EO 


1 e " H D P b' ^ + ( H D + H Cf) P b' ^ + S : 
\ a - l c- l e 


dp b , (o) 
F dt 


dV 


+ C 


EB 


ve dt CO 


where the space charge layer charge storage is represented as well as the 

leakage currents. The radiation version replaces i_-,, i_- with i , i 

EO CO ppe ppc 

as m the other models. TRAC employs the Linvill model tor analysis and 

9 

the TRAC representation is given m Figure B-22 


CONCLUSIONS 

The three program models discussed are first-order approximations 
for representation of ionizing radiation effects. The three models use iden- 
tical approaches to the representation of the junction photocurrents l , ^pg 
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Figure B 20 PNP Charge-Control Model for Normal and Inverse Operation 






Figure B 21 CIRCUS Model (Charge Control) and Parameters — PNP Device 
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For analysis without 1 , 1 
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delete the current generators 


Figure B 22 Linvill Two-Lump Model — PNP Including Radiation Pulse Currents 
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Figure B 23 TRAC Representation of the Linviil Two-Lump Model — PNP — 
Including Radiation Photocurrents (prestored) 
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The variations of Beta with time, injection level and radiation exposure 
for a given device is complex. A general approach has evolved because most 
programs require the Beta be either single valued or expressed as a function 
of current m a simple table Beta is first computed for the injection level 
and other * normal' operating conditions. A degraded Beta for the given flux 
level is computed from Equation (3) and then degraded by a factor of 2 or 3 
to provide a worst -case analysis (The actual transient loss may be this 
great or greater with a recovery of Beta to its damage value /3 dependent 
upon the device and its exposure ) This approximate analysis is sufficient 
to indicate the presence of difficulties m the circuit under analysis. 

SCEPTRE allows the programming of Beta as a function (equation or 
tabled expression) and CIRCUS allows a table (Beta N = Fd^)) The more 
elaborate expressions for Beta are justified when sufficient laboratory data 
exists to warrant the increased computer computation time. 
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TABLE OF SYMBOLS 


A 

C , C 
jc je 

C VC, C VB 

D, D , D , 
n pb 


E 

*o 

h cf- h cr 
h d 

W ! eo 


I T 
CS* ES 


J 

K 

K, k 
L 

N (N_) 
a d 

n( p) 
v' (p 1 ) 

\ 

q 

q s 


q VE' q VC 

TTY 

B' E' C 
T 

W 

x, x’ , x M 


•junction area (A , A , A, , 
jc je base) 

incremental capacitance of the junction 
nonlinear charge store of the junction 

charge -carrier diffusion constant (e, p for electrons m 
p -material, e, b, c for a transistor to denote emitter, base 
or collector) 

electric field 

carrier generation rate at equilibirum 

forward and reverse combination parameter of the Lmvill model 

the diffusance parameter of the Lmvill model 

the collector and emitter junction saturation current (opposite 
junction open) 

the collector and emitter junction saturation current (opposite 
junction shorted) 

Saturation current of an ideal diode 

electric current density 

damage constant 

Boltzmann' s Constant 

Charge carrier diffusion length (see D) 

accepter (donor impurity concentration 

electron (hole) concentration 

excess electron (hole) concentration 

intrinsic carrier concentration 

magnitude of the electronic charge 

total excess minority carrier charge stored m the case 

q = q_ + q„( forward and reverse components) 

.D -fc* ri 

junction space charge layer charge (at V = 0) 
large signal bulk resistances 
absolute temperature 
Width of the base region 

longitudinal coordinate in one dimensional transistor model 
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0 F (0 R ) 
7 ft) 


e 

V 

V 

P 

r 

e 


large signal forward (reverse) injection common base short 
circuit gam 

large signal forward (reverse) injection common emitter short 
circuit current gam 

ionizing radiation 

neutron flux 

dielectric permittivity 

base width modulation factor 

charge carrier mobility 

space charge concentration 

lifetime of excess charge carriers 

6 = q'/rjKT 
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APPENDIX C 

CURRENT CODING EXAMPLES 


Example 1: (Taken from the report, "The Application of NASAP to the 

Design of Biomedical Instrumentation Circuits, " written by M. L. Moe and 
J. T. Schwartz, Denver Research Institute, University of Denver, January 
1970 ). 

Given: The Equivalent Circuit Diagram of a Telemetry Transmitter 



Figure c 1 Telemetry Transmitter Circuit 



LI 

0 25/xh 


Figure C 2 Equivalent Circuit of Telemetry Transmitter for NASAP Analysis 
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Input Codes; 


NASAP Input Code 

NASAP PROBLEM TELEMETER 

11 1 2 1.0 
Cl 1 2 100UF 
Hll 2 20K 
C2 2 3 2UF 
K2 2 3 100 
R3 1 3 220 
LI 4 1 0. 25 
C3 2 4 2.‘0UF 
C4 3 1 47UF 
C5 3 4 10UF 

12 4 3 0. 3 IR2 
OUTPUT 
WORST CASE 
111 /III 

PLOT(TY=FR/FR=80/TO=126) 

PLOT<TY=RE/FR=0/T0=100) 

ROOTS, POLES 
END 

PLOT{TY=SE/FR=80/TO=126/EL=DJ1) 

PLOT(TY=SE/FR=80/TO=126/EL=CJ3> 

PLOT(TY=SE/FR=80/TO=126/EL=LE3) 

PLOT(TY=SE/FR=80/TO=126/EL=KE3) 

EXECUTE 

TREE NASAP PROBLEM TELEMETER 

Jl(l~2) = l. 0 

CJ1(1-2) = 100MF 

RE1(1-2)=20JC 

CJ2(2-3)=2MF 

RJ2(2-3) = 100 

RE3 (l-3)=220 

LE1(4-1)=0. 25 

CJ3(l-4)=LOMF 

CE4{3-1)=47MF 

CJ5(3-4)=10MF 

DJ2/lRJ2<4-3)=0.3 

END 

WORST CASE 
111 /III 

PLOT<TY=FR/FR=80)/TO=126> 

plot(ty=re/fr=o/to=ioo) 

ROOTS, POLES 
END 


C-2 



PLOT(TY=SE/FR = 80/TO=126/EL=DJ3) 

PLOT(TY=SE/FR=80/TO=126/EL=CJ3) 

PLOT(TY=SE/FR = 80/TO=12S/EL=LE3) 

PLOT(TY=SE/FR=80/TO=126/EL=KE3) 

CIRC(1E6) NASAP PROBLEM TELEMETER 

Jl(l-2) = 1. 0 

C1(1-2) = 100MF 

R1(1-=)=20K 

C2(2-3)=2MF 

R2(2-3) = 100 

R3(l-3) = 220 

Ll(4-1)=0. 25 

C3(2-4)=2. OMF 

C4(3-1) = 47MF 

C5(3-4)=10MF 

DJ2/lR2(4-3)=0 3 

END 

WORST CASE 
ILl/lIl 

PLOT(TY=FR/FR=80/TO=126) 

PLOT(TY =RE / FR=0 /TO= 100) 

ROOTS, POLES 
END 

PLOT(TY=SE/FR=80/TO=126/EL=CJ1) 

PLOT(TY=SE/FR=80/TO=126/EL=EJ3) 

PLOT(TY=SE/FR=80 /TO=126/EL=LEl) 

PLOT (TY=SE/FR = 80/TO=126/EL=KE3) 
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OoO 

OoO 

0.0 

OoO 

0.0 

0.0 

OoO 

OoO 

OoO 

OoO 

OoC 

OoO 

0,0 

0,0 

0.0 

0.0 

OoO 

OoO 

0,0 

0,0 

OoO 

OoO 

0.0 

0.0 

0.0 

0.0 

OoO 

OoO 

OoO 

OoO 

0,0 

OoO 

0,0 

OoO 

0.0 

0.0 

OoO 

OoO 

OoO 

OoO 

OoO 

OoO 

0.0 

0,0 

0.0 

0.0 

OoO 

OoO 

OoO 

OoO 

0,0 

OoO 

0.0 ‘ 

9.29569E 04 

1.02711E 04 

7.00740E 02 

9o 7 8263E 00 

9o 64 322E-02 

4o 15129E-04 

lo 042 2 Z E— 06 

2o 1943 8E— 09 

3.22763E-1Z 

3.01305E— 15 

3o 51513E— 18 

lo 79595E— 21 

3.01593E-24 

OoO 

OoO 

OoO 

OoO 

OoO 

0,0 

0.0 

0.0 

0.0 

0.0 

OoO 

OoO 

OoO 

CoO 

OoO 

OoO 

0.0 

0.0 

0.0 

0.0 

0o"0 

OoO 

OoO 

OoO 

0,0 

OoO 

0.0 

Oo 0 

0.0 

0.0 

OoO 

OoO 

OoO 

OoO 

0,0 

OoO 

OoO 

OoO 

0,0 

0.0 

0.0 

0.0 



PLOT <7 Y=FR/FR= 60/70=126) 


THE TRANSFORM OF THE RESPONSE IS 


EXPo OF S 

NUMERo CGEFFSo 

CENCMo COEFFSo 

0 

-3oOOCOCE Cl 

lo 01930E 02 

1 

-lo289S?E-02 

5.21768E 00 

2 

3c035SSE-04 

U38103E-02 

3 

OoO 

lo33138E-05 

4 

0 o 0 

3o457T3E-C 8 



FREQ 

MAC 

FREQ 

MAG 

FREQ 

MAG 

FREQ 

MAG 


8 o 000E 

01 

7oll011E-02 

8o562E 

01 

lo 29375E-01 

lo004E 

02 

lo 57465E 00 

1.125E 

02 

80 70447E-02 

V, J 

1 

8 o 036E 

01 

7o22272E-02 

9o 0 03E 

01 

1.34472E-01 

lo 009E 

02 

9o 82326E-01 

1.130E 

02 

80 34591E-02 

CO 

8 o 073 E 

01 

7o3404CE-02 

9oC44E 

01 

lo4CC5QE-01 

lo013E 

02 

7„11794E-01 

lol35E 

02 

8o01249E-02 

o 

8 « 110E 

01 

7o46347E-02 

9o 0S5E 

01 

lo46179E-01 

U018E 

02 

5a 56839E-01 

lol40E 

02 

7o 70179E-02 


8o 147E 

01 

7o 59221 E- 02 

9o 126E 

01 

lo 52849E-01 

lo 022E 

02 

4o 56448E-01 

lol45E 

02 

7o41 151E-C2 


8 o 184E 

01 

7o 72731E-02 

9o 168E 

01 

lo60461E-01 

lo 027E 

02 

3o 86102E-01 

U151E 

02 

7o 13971E-Q2 


So 221E 

01 

7o 868906-02 

80 2 L0E 

01 

lo 66845E-01 

lo 032E 

02 

3 o 34095E-01 

I 0 IS 6 E 

02 

60 8 8478E-02 


So 258E 

01 

80 01756 £-02 

9o 251E 

Cl 

lo 7626 IE-01 

lo 03 6 E 

C 2 

2o 94064E-01 

lol61E 

02 

6»64507E-02 


8 o 296E 

01 

8c 17384E-02 

9o 294E 

01 

lo e8812E-01 

lo041E 

02 

2o 62310E— 01 

I 0 I 66 E 

02 

6o41941E— 02 


8 o 334E 

01 

e= 33828E-02 

9o 336E 

01 

2o 01C55E— 01 

lo046E 

02 

2.36511E-01 

lo 1 72E 

02 

60 20653E- 02 


8 o 372E 

01 

80 E1154E-C2 

9 0 378E 

01 

2o 1S030E-01 

lo 05 IE 

02 

2o 15134E-01 

lo 1 77E 

02 

6 o 00545E-02 


8o410E 

01 

80 694 2 2E-02 

9o4 21E 

01 

2o21279E-01 

lo055E 

02 

l o 97132E-01 

1 0 182E 

02 

5o 81514E-02 


8o448E 

01 

8 c 6874 IE-02 

9o 46 4E 

01 

2o 504C2E-01 

I 0 O 6 OE 

02 

1« 81769E-Q1 

lo 1 8 8 E 

02 

5o 63485E-02 


8 0 487E 

01 

9 0 C9169E-02 

9o5C7E 

01 

2o 73244E-01 

1»065E 

02 

1. 68502 E-01 

lol93E 

02 

5o46378E-02 


8o525E 

01 

9 0 208C EE-02 

9.5SOE 

01 

3o 00984E-01 

lo070E 

02 

lo56832E-Cl 

lo 199E 

02 

5o 30126E-02 


8 o 564E 

01 

9c 537 74E-G2 

9o 5S4E 

01 

3o 354 2 IE— 01 

lo 075 E 

02 

lo46751E— 01 

lo204E 

02 

5o 14664E— 02 


8 o 603E 

01 

9o 78190E-O2 

9o 6 27E 

01 

3o79281E-01 

1c 080E 

02 

lo 37725E-01 

lo209E 

02 

4o 99940E— 02 


8 o 642E 

01 

1c 004 19E-01 

9o 68 IE 

01 

4o 37C28E— 01 

lo085E 

02 

lo29669E-01 

lo215E 

02 

4o 85906E-02 


8 o 682E 

01 

lo 03192E-01 

9o 72 5E 

01 

5o 16501E-01 

loC89E 

02 

lo22436E-01 

lo220E 

02 

4 o 72508E-02 


8 o 721E 

01 

I 0 O 6 I 6 OE-OI 

9o770E 

01 

6o32£03E-01 

lo 094E 

02 

1.15905E-01 

1.226E 

02 

4o 59712E-02 


8 o 761E 

01 

lo0933SE~01 

5 0 E14E 

Cl 

80 18243E-Q1 

lo 099E 

02 

lo09979E-01 

1„232E 

02 

4o 47475E-02 


808 OIE 

01 

lo 1275 2 E— 0 1 

So 6 58E 

01 

1.16645E 00 

lo 104E 

02 

1.04578E-01 

1»237E 

02 

4o 35762E— 02 


80 841E 

01 

lo 16421E-01 

9o 904E 

01 

2o 04072E 00 

lo 109E 

02 

9o 96354E-02 

lo243E 

02 

4o 24541E-C2 


80 8 8 IE 

01 

lo20402E-01 

9o 949E 

01 

80 4C956E 00 

loll5E 

02 

9o50964E— 02 

lo249E 

02 

4c 13783E-02 


8o921E 

01 

io24702E-01 

9»9S4E 

01 

3.80501E 00 

lol20E 

02 

9.09121E-02 

lo254E 

02 

4» 03457E-02 




C-21 




-22 


FREQ PHA FREQ PHA 


800 COE 

01 

4 0 17S9SE 

01 

80 C 62E 

01 

3<> E3326E 

01 

80 036E 

01 

4o 16568E 

01 

9<, 002E 

01 

3o 81968E 

01 

80 073E 

01 

4o 15178E 

01 

9o 044E 

01 

3o €C6 13E 

01 

80 IIOE 

01 

4o 137 7 IE 

01 

9oC6 £E 

01 

3 0 79261E 

01 

80 147E 

01 

4o 1236 5E 

01 

9o 1 26 E 

01 

3 0 779 12E 

01 

80 184E 

01 

4o 10 C 61E 

01 

9o 168E 

01 

3 0 76565E 

01 

80 221E 

01 

4o C955 C E 

Cl 

9o 210E 

01 

3 0 7 5 222E 

01 

80 258E 

01 

4o C 8159E 

01 

9o 25 IE 

01 

3 0 7 3682E 

01 

80 296E 

01 

4o C676 1 E 

01 

9 0 294E 

01 

3 0 7 254 2E 

01 

8o334E 

01 

4 0 C 5365E 

01 

9 0 326E 

Cl 

3o 7 1209E 

01 

80 372E 

Cl 

4o 03S71E 

01 

9o378E 

01 

3o 6 e € 78E 

01 

80 4 10E 

01 

4o C2579E 

01 

9o4 2 IE 

01 

3« 6E549E 

01 

80 44 8 E 

01 

4o 01190E 

01 

80 464E 

01 

3o £ 7 227E 

01 

80 487E 

01 

3o 99802E 

01 

9o 5C 7E 

01 

3 o 65909E 

01 

80 525E 

01 

3o 9 8417E 

01 

9o550E 

01 

3 0 £ 4593E 

01 

80 564E 

01 

3o 97034E 

01 

9o 594E 

01 

3 0 63286E 

01 

80 6C3E 

01 

3c C 5£52E 

Cl 

9o6 27E 

01 

3<, £ 19 8 7£ 

01 

80 642E 

01 

3o 94273E 

Cl 

8o681E 

01 

3 0 6 C 6 S3E 

01 

80 682E 

01 

3o 9 2 89 6 E 

01 

9o7 25E 

01 

3.59418E 

01 

80 721E 

01 

3o 91522 E 

Cl 

9 o 770E 

01 

3 0 5 8161E 

01 

80 761 E 

01 

3o 90149E 

01 

80 8 14E 

01 

3 0 56942E 

01 

808 OIE 

01 

3o 8878 IE 

01 

9o 8 59E 

01 

3 0 55fil3E 

01 

80 841E 

01 

3o 67413E 

01 

5o9C4E 

01 

3» 54S47E 

01 

80 881E 

01 

3o E6048E 

01 

9o 949E 

01 

3 0 568 79E 

01 

8o921E 

01 

3o E4686E 

01 

9 0 994E 

01 

-lo45C68E 

02 


FREQ PHA 

lo004E 02 -1®45079E 02 
lo 009E 02 — lo 45179E 02 
lo013E 02 -lo 45294E 02 
lo 018E 02 -lo45416E 02 
lo 02 2E 02 — lo45539E 02 
lo 027E 02 -1.45664E 02 
lo 032E 02 -lo45789E 02 
lo036E 02 -lo45916E 02 
lo 04 IE 02 -lo46041E 02 
lo 046E 02 -lo46167E 02 
lo051E 02 -lo 46293E 02 
lo 055E 02 -lo 46419E 02 
I 0 C 6 OE 02 -lo46545E 02 
lo 065E 02 — lo 46670E 02 
lo070E 02 — lo46795E 02 
lo075E 02 — lo46921E 02 
I 0 O 8 OE 02 -lo47045E 02 
lo 085E 02 — lo47170E 02 
lo089E 02 -lo47294E 02 
l o 094E 02 -lo47418E 02 
lo G99E 02 -lo47542E 02 
l o 104E 02 -lo 47666E 02 
lo 109E 02 -1.47789E 02 
lo 115E 02 — lo47912E 02 
lol20E 02 -lo 48034E 02 


FREQ PHA 

lcl25E 02 -lo 481S7E 02 
lol30E 02 -lo48279E 02 
lol35E 02 -lo48400E 02 
lol40E 02 -lo 48522E 02 
lol45E 02 -lo48643E 02 
1.1S1E 02 -lo 48764E 02 
lo!56E 02 -lo48884E 02 
I 0 I 6 IE 02 -lo 49005E 02 
I 0 I 66 E 02 -lo 4912SE 02 
lol72E 02 -lo49244E 02 
lol77E 02 -lo 49364E 02 
lol82E 02 — lo49483E 02 
loi 88 E 02 -l o 49601E 02 
lol93E 02 -lo497 20E 02 
lol99E 02 — lo49838E 02 
lo204E 02 -lo49956E 02 
lo 209E 02 - lo 500 73 E 02 
lo215E 02 -lo 50190E 02 
lo220E 02 -lo 5O307E 02 
lo226E 02 - lo 50424E 02 
lo232E 02 -lo 50540E 02 
lo237E 02 -lo50656E 02 
1«243E 02 -lo 50771E 02 
lo249E 02 -lo 50886E 02 
lo254E 02 -lo 51001E 02 



GREATEST VALUE 


A.179S9E 01 


lgheSt value 


‘1* 51001 E 02 


INTERVAL - 1,67653£ 00 



C-23 





C-24 


PLOT ny=RE/FR = 0/TC = lCO> 

IHC210I 1BCOH - PROGRAM INTERRUPT- IMPRECISE CLO PSW IS FF45004002234AE6 
TRACEEACK FOLLOWS- ROUTINE 1SN REG. 14 REG. 15 REG. 0 REG, 1 

PLOT 0125 4221C49A 00234010 OOCOOOOO 0021C9A4 

MAIN 00015472 0121C518 00000015 00238FF8 

ENTRY POINT= C121C516 

STANDARD FIXUP TAKEN , EXECUTION CONTINUING 


THE TRANSFORM OF THE RESPONSE IS 

EXP„ OF S NUMER. CGEFFS. DENCFo COEFFS. 


0 -3.0000CE 01 1.01930E 02 

1 -1.295S7E-02 5.21768E 00 

2 3e03595E-04 1.38103E-02 

3 0.0 1.33138E-05 

4 0.0 3.45773E-C8 


FREQ 

MAG 

FPEQ 

HAG 

FREQ 

MAG 

FREQ 

HAG 

0.0 

— 2o 542 19E-01 

2.4CEE 

01 

— lo 278C7E-01 

4.817E 

01 

-7.73230E-02 

7.225E 01 

-5.27031E-02 

1.047E 00 

-2. 79430E-01 

2.512E 

01 

— lo 24523E-01 

4,9226 

01 

-7. S9O75E-02 

7.330E 01 

-5.191326-02 

2.094E 00 

-2, 6S5C9E-01 

2. ties 

01 

—1. 21384E-01 

5.026E 

01 

-7.4S330E-02 

7.4356 01 

-5. U403E-02 

3. 141E 00 

-2. 53575E-01 

2.722E 

01 

-1. 13381E-01 

5.131E 

01 

— 7.31978E-02 

7.5396 01 

-5. O3038E-O2 

4.189E 00 

— 2.42278E— 01 

2.E27E 

01 

-lo 155066-01 

5„ 2366 

01 

-7. 19002E— 02 

7.6446 01 

-4.96432E-02 

5. 236E 00 

-2.218S1E-01 

2.932E 

01 

— 1. 127 49E-01 

5.340E 

01 

-7.06385E-02 

7.749E 01 

-4. 89181E-02 

6.283E 00 

-2.223 2OE-01 

3.037E 

01 

-1. 10104E-01 

5.445E 

01 

-6. 94113E-02 

7.853E 01 

-4. S207BE-02 

7.33CE 00 

-2.13443E-C1 

3. 14 IE 

01 

-1.C1565E-01 

5.550E 

01 

-6.82172E-02 

7.9S8E 01 

-4.75120E-02 

6. 377E 00 

-2.05214E-01 

3.2466 

01 

-1. C5124E-01 

5.6S4E 

01 

-6.70549E-02 

8.063E 01 

—4o 683036-02 

9.424E 00 

-1.S7555E-01 

3. 35 IE 

01 

-1.02777E-01 

5.759E 

01 

-6. 59230E— 02 

8.1686 01 

-4o6 1621E-02 

1.047E 01 

-1.904C9E-O1 

3.45EE 

01 

-1.C0518E-01 

5.864E 

01 

-6.48204E-02 

8.272E 01 

-4. S5071E-02 

I.152E 01 

-1. 83726E-G1 

3.5GCE 

01 

— 9. £34 12E— 02 

5o969E 

01 

-6.37460E-02 

8.377E 01 

-4.48649E-02 

1.257E 01 

-1.77462E-01 

3.6656 

01 

-9.6 2422E-02 

6„073E 

Cl 

-6.26985E-02 

8.4825 01 

-4. 4235 IE-02 

1.361E 01 

-1.71578E-C1 

3.77CE 

01 

-9 0 4 21566-02 

6.1796 

01 

— 6.16772E-02 

3.586E 01 

-4.36174E-02 

1.466E 01 

-1.66C42E-01 

3.674E 

01 

-9o 226636—02 

6, 2836 

01 

— 6. 06809E— 02 

8.691E 01 

-4.301146-02 

1.571E 01 

-1.6C823E-01 

3.S79E 

01 

-9.037S7E-82 

6.387E 

01 

—5. S7088E-02 

8.756E 01 

-4.24168E-02 

1.675E 01 

— 1. 55E54E-01 

4.084E 

01 

-8.E5562E-02 

6.492E 

01 

—5. 87 599 E— 02 

8.901 E 01 

-4.1833 2E-02 

1.780E 01 

-1. 51221E-01 

4. 18 SE 

01 

-8o 679 30E-02 

6.5S7E 

01 

—5. 78334E-02 

9.0056 01 

-4. 126046-02 

1.S85E 01 

-1.46814E-01 

4. 292E 

01 

—8. 5C869E-02 

6.702E 

01 

-5. 69285E-02 

5.110E 01 

-4.069806-02 

1.990E 01 

-1.42623E-C1 

4. 358E 

01 

-8o 34334E-G2 

6.806E 

01 

-5.60445E-02 

9.2156 01 

-4.01458E-02 

2. 0945 01 

— 1.38642E-01 

4.5C3E 

01 

-8. 1S354E-02 

6.911E 

01 

-5. 51806E-C2 

9.319E 01 

-3.960356-02 

2o l e 9£ 01 

-1. 34S55E-C1 

4.6C7E 

01 

-8.02650E-02 

7.0166 

01 

-5.43362E-02 

9.4246 01 

-3.907086-02 

2.304E 01 

-1.31247E-01 

4.712E 

01 

-7. 87815E-02 

7.120E 

Cl 

-5.351O6E-02 

9.529E 01 

-3.85474E-02 



GREATEST VALUE = 0.0 


LOWEST VALUE - -2.9O19E-01 


INTERVAL - 2. 5593QE-03 


C-25 



-26 


ROOTS . POLES 


O 





*** SVOBOCA POLYNOMIAL 

ROOTFINOER *** 


H.F.OKRENT 

JAN. 1969 

POLYNOMIAL 

OF 

DEGREE 4 -- 





0.1019299927E 03 

0 

X 

1 

0.5217680931E 01 X 

2 

0. 138103254 IE- 01 X 

3 

0. 133 1378280E-04 X 

4 

0. 345773 11 68 E-0 7 X 



ACCURACY RECUESTED — 6 SIGNIFICANT FIGURES 


REAL PART IMAGINARY PART EXPONENT 


-3o644150000 0.0 2 

O.OCOC7QOOO 6.260090000 2 

0.000070000 -6.260080000 2 

-2.064200000 0.0 1 


**. *.. SVQ60C A POLYNOMIAL ROOTFINDER *** Ho E oXlKRE NT. 

JAN. 1969 


POLYNOMIAL OF DEGREE 2 — 


0 1 2 
Oo 2999998474E 02 X 0. 12999 71715E-0 1 X -0.3035992630E-03 X 


ACCURACY RECUESTED — 6 SIGNIFICANT F1CURES 


R EAL PART IMAGINARY PART EXFON E NT 


r-2. 936660000 0.0 2 

3.364650000 0.0 2 



SENSITIVITY OF POLES TO Cl 


SENSITIVITY 


POLES 

REAL 

3o£44lE C2 
7o 0000E-C3 
To OOCOE-C3 
2o 0642E Cl 


I R AC 
OoG 

60 2601 E 02 
-60 2601E 02 
OoO 


REAL 

-6o 6345E 01 
To 00C6E— 03 
7o00C6E-03 
-lo 5917E 01 


IMAG 

Oo C 

— 5ol4 38E 01 
-4o 5862E 01 
Go 0 


SENSITIVITY OF POLES TC R1 


SENSITIVITY 


POLES 

REAL 

3o£441E C2 
7o 0OCOE-O3 
7o OOCOE-03 
■2o 0642E Cl 


IMAG 

OoO 

6o 2601E 02 
-6o 2601E 02 
OoO 


REAL 

— 9 o 3773E-02 
lo 325 4E-C4 
lo3254E-C4 
— 3o 8556E-C1 


IMAG 

OoO 

— 2o 7139E-01 
-lo 8254E-Q1 
OoO 


SENSITIVITY OF POLES TO C2 


SENSITIVITY 


POLES 

REAL 

3 0 6441E C2 
7o00C0E-C3 
7o 0000 E-03 
■2o 0642E Cl 


IMAG 

OoC 

6o2601E 02 
-6o 2601E 02 
OoO 


REAL 

lo £73 IE Cl 
So 7225E— OS 
So 7225E-0S 
2o 5£ 19E-C2 


IMAG 

OoC 

— lo 3517E 01 
2o 3180E 01 
OoC 


SENSITIVITY OF POLES TO R2 


FCLES 


SENSITIVITY 


REAL 

-3o £441E C2 
7o OOOOE-C3 
7o 0CC0E-C3 
— 2o 0642E Cl 


IMAC 
Co 0 

6o 2601E 02 
-6o2601E 02 
OoO 


REAL 

-2o99T2E C2 
6 0 S677E— 03 
6 o S 677E-03 
— 3o2S£8E 00 


IMAG 

OoO 

-lo 2C29E 02 

— Zo 0787 E 02 

OoO 


SENSITIVITY OF POLES TO R3 


SENSITIVITY 


POLES 

REAL 

3o 6441E C2 
7o C000E-C3 
7o OOOOE-G3 
2oO£42E Cl 


IMAG 

OoC 

6o 26C1E 02 
-6o2601E 02 
OoO 


REAL 

6o2044E 01 
l o 0021E-04 
lo0021E— C4 
lo6971E 01 


IMAG 

OoO 

-3o E429E 02 
2o3329E 02 
OoO 


C-27 



SENSITIVITY OF POLES TC LI 


POLES 

REAL IKAG 

-3o£AAlE C2 OoC 

7o 0000 E-C3 6o2601E 02 

7o C0C0E-C3 -6 a 2£OIE C2 

-2o 0642E 01 OoO 


SENSITIVITY OF POLES TC C3 


FGLES 

REAL IKAG 

-BotA^lE C2 OoC 

7 o 00C0E-G3 6 0 26 01E 02 

7« OOCOE— 03 - 6 o 26 01 E 02 

-2o 0642E Cl OoO 


SENSITIVITY OF POLES TO C4 


FGLES 

REAL I NAG 

-3o 6441E C2 OoC 

7o C0C0E-C3 6o2601E 02 

7o 0000E-G3 — 6 o 26 G1 E 02 

-2o 0642 E Cl OoO 


SENSITIVITY OF PGLES TO C5 


POLES 

REAL IH AC 

-3o 6441E 02 OoC 

7o 0000E-03 6 o 2601 E 02 

7o 00G0E-G3 -6 o 2601E 02 

-2o 0642E Cl OoC 


SENSITIVITY CF PCLES TO 12 


FCLES 

REAL IMAG 

-3o 6 A A 1 E C2 OoO 

7o OOCDE-C 3 6 o 2601E 02 

7o OOCOE-03 -6o2601E 02 
-2o C6A2E Cl OoO 


PLOT (TY=SE/FR=80/TG= 126/EL =C II 


SENSITIVITY 

REAL IMAG 

lo 27 £2E GC OoC 

lo C770E-12 -1oS£1AE 02 
lo G77CE-12 9o 2333 E 01 

— 5o47C 7E-C3 OoC 


SENSITIVITY 

REAL IKAG 

lo 8 A5SE OC OoO 

3o 7 113E-C £ -Ao 33 17E 01 

3o7113E-08 2o 2 0 19 E 01 

3o 1672E-C1 Go G 


SENSITIVITY 

REAL IKAG 

2o 337SE C2 OoO 

Ao 9 9 59E-C7 -2o 3906E 02 

Ao9S SSE-C7 3o 277CE 02 

3o 6 222E 00 OoO 


SENSITIVITY 

REAL IKAG 

4oCA2£E 01 OoC 

loC 6 3CE-C7 -I 08 SAIE 02 

lo063CE-C7 lo 14SCE 02 

7o 65A7E-CI OoO 


SENSITIVITY 

REAL IKAG 

— 4o2723E 01 OoO 

2o 29E6E-G5 -U2323E 01 

2o 28E6E-C5 -2»2735E 01 

2o9G86E 00 OoO 


C-28 



6Z~ 


SENSITIVIJY WITH RESPECT TC Cl 


ThE TRANSFORM* OF TFE RESPONSE IS 


EXP. OF S 

NUMERo COEFFSo 

CENCF. COEFFS 

0 

0.0 

1.C1930E 02 

1 

-3.E60CCE 00 

5.21768E 00 

2 

-1.2S8GCE-02 

1.38103E-02 

3 

-9c9299eE-06 

1.33138E-05 

4 

-3o34399E-08 

3o45773E-08 



— 

— 


FREQ~ 

F AC* 

FREQ 

FAC 

8.000E 

01 

8 o 65262E-01 

8o562E 

01 

8o 13C62E— 01 

8 0 036E 

01 

8. £5212 E- 01 

9o 0C3E 

01 

8 o 7 1585E-01 

8.073E 

Cl 

8 o £ 5 14 4E-C1 

9o 044E 

01 

8 o 69S36E-01 

8.110E 

01 

8 o £5056 E- 01 

9oC£5E 

01 

8 o 680906-01 

8. 147E 

01 

8. 84S45E-01 

9o 1 26 E 

01 

So 66C16E— 01 

8.184E 

01 

Eo£4812E-01 

9o 168E 

01 

8 o 6 3683E-01 

8.221E 

01 

8 . £4655E-C1 

9o 2 10E 

01 

8.61039E-01 

8.258E 

Cl 

8 o 64473E-01 

9c 25 IE 

01 

8. 58C32E-01 

8.286E 

01 

8 . £4 262E-C1 

9o 29 4E 

01 

8 o 54584E-01 

8.334E 

01 

8 o 8402 IE-01 

9o 336E 

01 

8.5C619E-01 

8.372E 

01 

8.83748E-01 

9.378E 

01 

8.45SS8E-01 

8.410E 

01 

8.83440E-C1 

9.421E 

01 

8.4C57SE-01 

8c448E 

01 

8. 83094E-01 

9o464E 

01 

8 o 34 142E-01 

8 . 487E 

01 

8. £270 £E— 01 

9„ 5C7E 

01 

8. 264C3E-01 

8.525E 

01 

8 o 62279E-01 

9o 5 EOE 

Cl 

8.16917E-01 

8 c 564E 

01 

8. 8180CE-OX 

9o 554E 

01 

8. C5C90E-01 

8 . 6C3E 

01 

8 . 8127CE-01 

9« 6 37E 

01 

7. 89S46E-01 

8.642E 

01 

8 o 80682E— Cl 

9o 661E 

01 

7o69S01E-01 

8 . 682E 

Cl 

8 o 80032E-01 

9o 7 25E 

01 

7o 4 2214E-01 

8 . 72 IE 

01 

8 o 79312E-01 

9 0 77CE 

01 

7o 01560E-01 

8.761E 

01 

8 o 785 18E-01 

9« 814E 

01 

6.36253E-01 

8.8C1E 

01 

8 o 77628E-C1 

So ES9E 

01 

5o 14543E-01 

8 . 89 IE 

01 

8 o 76666E— 01 

9o 9C4E 

01 

2. 10613E-01 

8 . 88 1 E 

Cl 

8 o 75586E-01 

So 949E 

01 

2o C4599E 00 

8.921E 

01 

£o 74390E-C1 

9o9S4E 

01 

2.30366E 00 


FREQ 

NAG 

FREQ 

MAG 

lo 004E 

02 

Xo48156E 00 

lo 125E 

02 

9o 63554E— 01 

1.009E 

02 

1.27286E 00 

1.130E 

02 

9o 62539E-Q1 

1.013E 

02 

1.17773E 00 

lo 135 E 

02 

9. 61613E-01 

1.018E 

02 

lo 12335 E 00 

lol40E 

02 

9o 60764 E-01 

1 . 0228 

02 

1 a 0 8 8 24 E 00 

lo 145 E 

02 

9.59987E-01 

1.027E 

02 

lo06370E 00 

lol51E 

02 

9o 59272E-01 

lo 032E 

02 

lo 04565E 00 

lo 156E 

02 

9o5B615E~01 

lo036£ 

02 

lo03181E 00 

I 0 I 6 IE 

02 

9o 58010E-01 

lo041E 

02 

lo02089E 00 

I 0 I 66 E 

02 

9o 57455E-01 

io046E 

02 

lo01206E 00 

lol72E 

02 

9. 56945E-01 

lo051E 

02 

lo C0480E 00 

lo 177E 

02 

9o 5 64 7 IE- 01 

1» 055E 

02 

9oS8722E-01 

lol82E 

02 

9o 56036E-01 

I 0 O 6 OE 

02 

9o 93579E-01 

I 0 I 88 E 

02 

9o 55635E-01 

lo 065E 

02 

9o 89166E— 01 

lo 193E 

02 

9o 5 5264E— 01 

lo070E 

02 

9o 85358E-01 

lo 199E 

02 

9o54922E-01 

lo075E 

02 

9o 82030E-01 

lo 204E 

02 

9o 54610E-01 

I 0 O 8 OE 

02 

9o79113E-01 

lo209E 

02 

9o 543 19E-01 

1 0 085E 

02 

9o 76532E-01 

lo215E 

02 

9o 54051E— 01 

lo C89E 

02 

9o74247E-01 

lo 220E 

02 

9o 53805E-01 

lo 094E 

02 

9o72203£-01 

lo226E 

02 

9o 53580E-01 

lo 099E 

02 

9o 70371E-01 

lo 232E 

02 

9o 53372E— 01 

lo 104E 

02 

9 o 68722E-01 

lo237E 

02 

9o 531 80E-01 

lol09E 

02 

9o67235E-01 

1.243E 

02 

9o 53004E— 01 

lo 115E 

02 

9o 65 889E-01 

lo249E 

02 

9o 52846E-01 

lol20E 

02 

9o64665E— 01 

lo254E 

02 

9o 52699E-01 



GREATEST VALUE * 2.3C3E6E 00 


LOWEST VALUE 
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FREQ 

PM 


FREQ 

PHA 


80GCOE 

01 

-lo 72281E 

02 

8o962E 

01 

-lo 7 2S77E 

02 

80 036E 

01 

-lo 72403E 

02 

9o0G3E 

01 

-U73005E 

02 

80 C73E 

01 

-lo72425E 

02 

9„044E 

01 

-lo 7 3C34E 

02 

80 HOE 

01 

-lo 72447E 

02 

9„C8£E 

01 

— 1o73C64E 

02 

80 147E 

01 

-lo 7247 CE 

02 

9ol26E 

01 

-1o73CS4E 

02 

80 184E 

01 

-lo 72492E 

02 

9 0 168E 

01 

-lo 73126E 

02 

80 22 IE 

01 

-lo 72514E 

02 

9o 2 10E 

01 

— lo 73159E 

02 

8o 258E 

01 

- lo 72 537 E 

02 

9o2' IE 

01 

-lo 73193E 

02 

80 296E 

01 

- lo 7 2559E 

C2 

9o 294E 

01 

-lo 73230E 

02 

8o334E 

01 

-lo72582E 

02 

9o 336E 

01 

-lo 73269E 

02 

80 372E 

01 

-H726C5E 

02 

9o 378E 

01 

-lo 72311E 

02 

8o410E 

01 

-lo 72628E 

02 

9o 4 2 IE 

01 

-lo 73357E 

02 

80 448E 

01 

-lo 7265 2E 

C2 

9o4£4E 

01 

-lo 7 34C 7E 

02 

80 487E 

01 

-lo72£7EE 

C2 

9o5C7E 

01 

— lo 7 34£4E 

02 

80 525E 

01 

-lo 72 699E 

02 

So 5 £OE 

01 

-io 73530E 

02 

80 564E 

01 

-lo 72722E 

02 

9o 5S4E 

01 

-1 0 7 36C76 

02 

80 603E 

01 

-lo 72746E 

02 

9o £ 37E 

01 

-lo 7 3703E 

02 

80 642E 

01 

-lo 727 7 IE 

02 

9o 681E 

Cl 

-lo 7 3828E 

02 

80 682E 

01 

-lo 72795E 

02 

9o7 2 5E 

01 

-lo 7 4001E 

02 

80 72 IE 

01 

-lo 7282CE 

02 

9o770E 

01 

-lo 74267E 

02 

8o761E 

01 

-lo 72845E 

02 

9o 8 14E 

01 

-lo 74748E 

02 

808OIE 

01 

-lo 7267 IE 

02 

So85SE 

01 

-lo 7 594 3E 

02 

80 841E 

01 

-lo 72ES7E 

02 

9oSC4E 

01 

lo745£2E 

02 

60 88 IE 

01 

-lo 72923E 

02 

9o 94SE 

01 

lo 21490E 

01 

80O2IE 

01 

- lo 7 2S 5CE 

02 

9oSS4E 

01 

-lo 7 144 2E 

02 


FREQ PHA 

lo 004E 02 -lo72113E 02 
lo 0C9E 02 -lo72459E 02 
loOllE 02 -lo72669E 02 
I0OI8E 02 -lo72815E 02 
lo 02 2E 02 -lo72923E 02 
1„027E 02 -lo73009E 02 
lo032E 02 -1o73080E 02 
lo 036E 02 -lo 73141 E 02 
lo 041E 02 -lo73195E 02 
lo 046E 02 -lo73243E 02 
lo051E 02 -1 0 73286E 02 
lo055E 02 -lo73326E 02 
I0O6OE 02 -lo73364E 02 
lo 065E 02 - lo73400E 02 
lo070E 02 -lo73433E 02 
lo 075E 02 -lo 73466E 02 
I0O8OE 02 -lo73497E 02 
lo 085E 02 -lo 73527E 02 
lo C89E 02 -lo73555E 02 
lo 094E 02 -lo73584E 02 
lo 0996 02 -lo 7361 1 E 02 
lo 104E 02 -lo 73638E 02 
lo 1G9E 02 -lo73665E 02 
loll5E 02 -lo73691E 02 
lo 120E 02 -lo73716E 02 


FREQ PHA 

lol25E 02 -lo73742£ 02 
l o 130E 02 -lo73767E 02 
lo 135E 02 -lo 737S1E 02 
lol40E 02 -lo 738 15E 02 
lo 145E 02 -lo738396 02 
lol51E 02 - lo 73863E 02 
lo 15 6E 02 -lo 73887E 02 
I0I6IE 02 — lo 739 10E 02 
I0I66E 02 -lo 73933E 02 
lo 172E 02 -lo 73956E 02 
lo 177E 02 -lo73979E 02 
lo 182E 02 -lo 74002E 02 
I0I88E 02 -U74024E 02 
lo 193E 02 -lo 74047E C2 
lo 1 99E 02 — lo 74069E 02 
lo204E 02 -lo74091E 02 
U209E 02 -lo74114E 02 
1»215E 02 — lo 74135 E 02 
lo 220E 02 -lo 74157E 02 
lo226E 02 -lo74179E 02 
lo232E 02 -lo74201E 02 
lo237E 02 -U74222E 02 
lo243E 02 -lo 74244E 02 
lo 249E 02 -lo74265E 02 
lo 254E 02 -lo 74287E 02 



GREATEST VALUE » 1-74S62E 02 


LOWEST VALUE * -1«7S943E 02 


IMERVAL - 3.05134E OO 


C-32 
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PLGT (7Y=S£/FR = 80/TC = 126/£l = I2) 


SENSITIVITY WITH RESPECT TC 12 


ThE TRANSFORM CF TFE RESFCNSE IS 


EXPo OF S 


MJMERo CCEFFSo 


DENCFo CCEFFSo 


0 

1 

2 

3 

4 

5 

6 


-3o C4 8CCE 03 
-lo666C3E 02 
-lo954E5E 00 
-4o69C7GE— 03 
~4o 9 85 8CE— 06 
-lo04167E— 08 
OoO 


3oC5790E 03 
lo 57855E 02 
4o 51192E-01 
-loG05l4E-03 
-2oS9Z41E-06 
— 3 0 59256E-09 
- lo C49 76 E— 1 1 


FREQ 

MAG 


FREQ 

FAG 


FREQ 

FAG 

FREQ 

MAG 


8 a 000E 

01 

la 540C2E 

00 

8 0 962E 

01 

lo 55486E 

00 

lo 004E 

02 

2o 43963E 00 

lo 125E 

02 

lo 060 82E 

00 

8 o 036E 

01 

lo S3 £E5E 

00 

9 o 003E 

01 

lo 55965E 

00 

lo 009E 

02 

lo38988E 00 

lol30E 

02 

I 0 O 6 I 86 E 

00 

8 0 C73E 

01 

la 53774E 

00 

9o 044 E 

01 

1 0 565 8 3E 

00 

lo013E 

02 

lo 02433 E 00 

lo 135E 

02 

lo 06260E 

00 

8 a 110E 

01 

lo E367CE 

00 

9oO£5E 

01 

1 0 57233 E 

00 

loOiee 

02 

9o 00377E— 01 

lo 140E 

02 

lo 063 06E 

00 

8 o 147E 

01 

lo E3S73E 

00 

9 0 126E 

01 

lo 56011E 

00 

lo 022E 

02 

8o7076lE-01 

lo 145E 

02 

lo 06327E 

00 

8 o 184E 

01 

lo 53485E 

00 

9o 168E 

01 

lo 58915E 

00 

lo 027E 

02 

80 76410 E- 01 

lo 151E 

02 

U06325E 

00 

So 221 E 

01 

lo E34CEE 

oc 

9o 2 10E 

01 

lo 59967E 

00 

lo032E 

02 

8o93983E-01 

lol5£E 

02 

lo 06302E 

00 

8„258E 

01 

lo 53336E 

00 

9q 25 1 E 

Cl 

lo 611 C 7E 

00 

lo 036E 

02 

9o 14457E— 01 

I 0 I 6 IE 

02 

lo 062606 

00 

8 o 2 96E 

01 

la 53276E 

00 

9o2S4E 

01 

lo 6263SE 

00 

lo041E 

02 

9o34405E~01 

I 0 I 66 E 

02 

lo 061 59E 

00 

8 o 334E 

01 

lo E3229E 

00 

9o 336E 

01 

lo64342E 

00 

lo 046E 

02 

9o52633E-01 

lol72E 

02 

lo 06123E 

00 

8o372E 

01 

lo 53194E 

00 

9o378E 

01 

lo66365E 

00 

lo 05 IE 

02 

9o 68835E— 01 

lo 177E 

02 

lo06031E 

00 

8 o 4 10E 

01 

lo 53173E 

00 

9o421E 

01 

lo 6S791E 

00 

lo 055E 

02 

9o83041E— 01 

lo 1 82E 

02 

lo 05926E 

00 

8 a 44 8 E 

01 

U53167E 

00 

9o464E 

01 

lo 71730E 

00 

I 0 O 6 OE 

02 

9o 954 13E-01 

I 0 I 88 E 

02 

lo 05807E 

00 

8o487E 

01 

lo 53178E 

00 

9o 5C7E 

01 

lo75337E 

00 

I 0 O 6 SE 

02 

lo 006 15E 00 

lo 193E 

02 

lo 05677E 

00 

8oS256 

01 

lo 5 22C 7E 

00 

9o 5 5 0E 

Cl 

lo 7 C 838E 

00 

lo070E 

02 

lo 01 546 E 00 

lo 199E 

02 

lo 05535E 

00 

8o 564E 

01 

lo 53255E 

00 

9o5S4E 

01 

lo £55666 

00 

lo 075E 

02 

lo02351E 00 

lo204£ 

02 

lo 05384E 

00 

8o 6 03E 

01 

lo 532 2 7E 

00 

9o637E 

01 

1 0 c 3044E 

00 

I 0 O 8 OE 

02 

lo 03045E 00 

lo 209E 

02 

lo 05222E 

00 

8o 642E 

01 

lo 53422E 

00 

9 0 6 E IE 

01 

2o 03136E 

00 

lo 085E 

02 

lo 03644E 00 

lo 2156 

02 

lo 05052E 

00 

8o 682E 

01 

lo 53546E 

00 

9o 72 5 E 

01 

2o 17367E 

00 

lo 089E 

02 

lo04158E 00 

lo220E 

02 

lo 04873E 

00 

8o721E 

01 

UE3699E 

00 

9o 770E 

01 

2o 3 8712E 

00 

lo 094E 

02 

1.04598E 00 

lo 2268 

02 

lo04686E 

00 

8o761E 

01 

lo 53EE5E 

00 

9q 814E 

01 

2o 7 3791 E 

00 

lo 099E 

02 

lo C4972E 00 

loZ32E 

02 

lo 044S2E 

00 

8o 801E 

01 

lo541C9E 

00 

c o 8 59E 

01 

3o 4C782E 

00 

lo 104E 

02 

lo 0 528 76 00 

lo237E 

02 

lo04291E 

00 

8o 84 IE 

01 

lo 54376E 

00 

9 0 904E 

01 

5o 136C6E 

00 

lo 109E 

02 

lo05551E 00 

lo2436 

02 

lo 04084E 

00 

8088 IE 

01 

lo 54 69 C E 

00 

9o 949E 

01 

la758S4e 

01 

lollSE 

02 

lo05768E 00 

lo 249 E 

02 

lo 038 70 £ 

00 

8o921E 

01 

lo 55058E 

00 

9 0 95 4 E 

01 

7o C5G39E 

00 

lol20E 

02 

lo 05944E 00 

1.254E 

02 

lo 03651E 

00 



CREATES! VALUE - 1.7V854E Ol" 


LG WE ST VALUE - 0*0 


INTERVAL 


1.563S5E-0X 
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FREQ 

PHA 


FREQ 

PFA 


FREQ 

PHA 


FREQ 

PHA 


80COOE 

01 

-9o 93251E 

Cl 

80 9 £ 2E 

Cl 

-9a 5C691E 

01 

la 004E 

02 

lo 44277E 

02 

lo 125 E 

02 

-lo 06240E 

02 

80 036E 

01 

-9o 92117E 

01 

9o 003E 

01 

-9.47981E 

01 

lo 009E 

02 

la 62369E 

02 

lol30E 

02 

-lo05920E 

02 

80 C73E 

01 

-9o 9C557E 

Cl 

5a 044E 

01 

-9o 44 £7 3E 

01 

1«013E 

02 

-U78023E 

02 

la 135E 

02 

-lo 05621E 

02 

80 110E 

01 

-9o?C773E 

01 

9aC£5E 

01 

-9o 41544E 

01 

I0OI8E 

02 

-I06O86OE 

02 

U140E 

02 

-lo05342E 

02 

80 147E 

01 

-9a 88560E 

01 

9o 126E 

01 

-9o 37S64E 

01 

la 02 2E 

02 

— lo 479Z5E 

02 

lo 145 E 

02 

-lo05081E 

02 

80 184E 

01 

-9a E7219E 

01 

9a 168E 

01 

-9. 34C97E 

01 

lo027E 

02 

-U38692E 

02 

lol51E 

02 

-lo 04834E 

02 

80 22XE 

01 

— 9o E6044E 

01 

9o210E 

01 

-So 255C3E 

01 

la 032E 

02 

— lo 32083E 

02 

la 156 E 

02 

-laO4602E 

02 

80 258E 

01 

-9, £47376 

01 

9o 25 IE 

01 

-9a 23332E 

01 

l o 036E 

02 

-lo27227E 

02 

lo 1 61 E 

02 

-lo04383E 

02 

8c 296E 

01 

— 9o 83393E 

01 

9, 294E 

01 

— 9o 2C324E 

01 

lo041E 

02 

-la23554E 

02 

I0I66E 

02 

-lo 04175E 

02 

80 334E 

01 

-9o 82O10E 

01 

9o 336E 

01 

-9a 148C6E 

01 

lo 046E 

02 

-lo 206976 

02 

lol72E 

02 

-lo03978E 

02 

80 372E 

01 

-9o £C5£6E 

01 

9o 3786 

01 

-9aC£6676 

01 

la051E 

02 

-lal8418E 

02 

1o177E 

02 

-la 03790E 

02 

80 410E 

01 

-9o 7S1 17E 

01 

9o 421E 

01 

-9o 01854E 

01 

lo055E 

02 

-lo 16562E 

02 

lol82E 

02 

-lo 03611E 

C2 

80 448E 

01 

-5o77599E 

01 

9o 46 4E 

01 

-80 e 4 169E 

01 

la060E 

02 

-lol5021E 

02 

I0IB8E 

02 

-lo03439£ 

02 

8 0 487E 

01 

— 9 0 76028E 

01 

9o5C7E 

01 

-8a 85444E 

01 

la 065E 

02 

-la 13722E 

02 

lo 193E 

02 

-lo 03276E 

C2 

80 525E 

01 

-9o 74401E 

01 

9 a 550E 

Cl 

-80 7S446E 

01 

la070E 

02 

-la 12612E 

02 

lo 199 E 

02 

-lo 031 19E 

02 

8a 564E 

01 

-9o 7 2713E 

01 

9o 5 e 4E 

01 

-80 63862E 

01 

lo075E 

02 

-la 1165 IE 

02 

la 204E 

02 

-lo02968E 

02 

8c603E 

01 

-9o 7C957E 

G1 

9o£27E 

01 

-8a 50276E 

01 

la080E 

02 

-I0IO8IIE 

02 

lo209E 

02 

-lo 02823E 

02 

8a642E 

01 

-9a 65129E 

01 

9o 6 8 1 E 

01 

— 80 34102E 

01 

lo085£ 

02 

-la 10070E 

02 

Z.215E 

02 

— lo 026 84 E 
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9o 168E 

01 

lo 7 C £65E 

02 

lo 027E 

02 

-lo 27 623E-01 

lol51E 

02 

-80 42231 E-02 

8 ,, 2 2 IE 

01 

1c 79819E 

02 

9 0 210E 

01 

lo 79£67E 

02 

lo 03 2E 

02 

-lo 23769E-01 

lo 1 5 £E 

02 

-80 31641E-02 

8 « 258E 

01 

lo 79 82 IE 

C 2 

9o 2 E1E 

01 

lo 7 C 870E 

02 

lo036E 

02 

-lo 20480E-01 

I 0 I 6 IE 

02 

-8o20624E-02 

So 296E 

01 

lc 79 823 E 

02 

9o 294E 

01 

lo 7 C £7 2E 

02 

1«041E 

02 

-lo 17607E-01 

I 0 I 66 E 

02 

- 80 10410E-02 

8 0 334E 

01 

lo 79825E 

02 

9 0 3 3£E 

01 

1 o 79874E 

02 

lo046E 

02 

-lol5117E-Cl 

lo 172E 

02 

-8o00000E-02 

So 372E 

01 

lo 79627E 

02 

9o 37EE 

Cl 

1»7<£76E 

02 

lo051E 

02 

-lo 12834E-C1 

lo 177E 

02 

-7o 89902E-Q2 

8 o 4 10E 

01 

lo 79829E 

02 

9o 42 IE 

01 

lo 7 C 878E 

02 

lo 055E 

02 

-lo 10650E-01 

lo 1 82E 

02 

-7o79770E-02 

8 o 44 8 E 

01 

lo 7983 IE 

C 2 

9o 4£4E 

01 

lo7ceelE 

02 

I 0 O 6 OE 

02 

-lo08804E-01 

I 0 I 88 E 

02 

-7o 70124E— 02 

8 o 487E 

01 

lo 7S833E 

0 2 

9o 507E 

01 

lo 79883E 

02 

lo 065E 

02 

-lo06949E-01 

lo 193E 

02 

-7 o 60295E-02 

8o 525E 

01 

lc 79 83 5E 

02 

9o550E 

01 

1 o7 c EE 6 E 

02 

lo070E 

02 

-lo 05274E-C1 

lo 1 99E 

02 

-7o 50936E-02 

8 o 564E 

01 

lo 79637E 

02 

9o 594E 

01 

lo 79890E 

02 

1»075E 

02 

— lo03586E-01 

lo 204E 

02 

-7 0 41185E-02 

8 o 603E 

01 

lo 78839E 

02 

9o £ 37E 

01 

lo 79893E 

02 

I 0 C 8 OE 

02 

— lc 02031E-01 

lo209E 

02 

—7o 32120 E— 02 

So 642E 

01 

lo 7984 IE 

02 

9o 68 IE 

01 

lo 78898E 

02 

lo 085E 

02 

-lo 00549E-01 

lo 215E 

02 

-7o 23273E-02 

So 682E 

01 

lo 79842E 

02 

9o 72 EE 

01 

lo 799C3E 

02 

loC89E 

02 

-9o 90711E-02 

lo 220E 

02 

-7o 14133E-02 

So 721E 

Cl 

lo 79844E 

02 

9o 7 70E 

01 

lo 79910E 

02 

lo094E 

02 

-9o75906E-02 

lo 226E 

02 

-7 0 05210E-02 

8 » 761E 

01 

lo 79846E 

02 

9o 814E 

01 

lo 79921 E 

02 

lo099E 

02 

-9o 62740E-02 

lo 23 2E 

02 

—60 96591E— 02 

8 o 801E 

01 

lo 7989 8 E 

02 

9o 8 S9E 

Cl 

lo 7S941E 

02 

lo 104E 

02 

-9 0 49544E-02 

lo237E 

02 

-60 87708E-02 

8 o 84 IE 

01 

lo 78650E 

02 

9o 904E 

01 

lo 7 C 587E 

02 

lo 109E 

02 

-9o36335E-C2 

lo243E 

02 

-6o79095E-02 

8 o 88 IE 

01 

lo 79 6 E 2£ 

02 

9o 949E 

01 

-lo7«686E 

02 

lo 115E 

02 

-9o 2335 7E-02 

lo249E 

02 

— 60 70989E-C2 

8 o 92 IE 

01 

lo 79E54E 

02 

9 0 9 9 4E 

01 

-3„ 16724E- 

-01 

lol20E 

02 

-9o 11362E-02 

lo 254E 

02 

-60 62280E-02 
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20 3*02*1 


ZO 3IS1 *1 


20 3660*1 


20 3tS0*t 


ZO 3*00*1 


10 3*6S*6 


10 3891*6 


10 3191*8 


10 3ZI£°8 
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00 E6S1Z1 *E * ItfAySINI 


20 398961*1- 


301VA 1S3H01 


20 313661*1 « 3mVA !S3ltf3<J0 



PLCT(TY=S£/FR=£0/TG=126/EL = R3 ) 


SENSITIVITY WITH RESPECT TG R3 


THE TRANSFORM OF TFE RESPCNSE IS — 


EXPo OF S NUMERc CCEFFSo 


DENCMo COEFFSo 


0 

1 

2 

3 

4 

5 

6 


4o 28994E 01 
1.219E5E C2 
3.174S3E-01 
3o 41 5 3 5 E-04 
8o 267 C 36— C7 
2. 52646E-10 
0.0 


3.C5790E 03 
1.S7655E 02 
4.5 1 192E-01 
-1.00514E-03 
-2.98241E-06 
-3.59256E-09 
-1.C4976E-11 


FREO 

MAG 

FREQ 

MAC 

FREQ 

MAG 

FREQ 

MAG 

a.oooe 

01 

2.35142E-C1 

8.9E2E 

01 

2. 27433 E- 01 

1.0C4E 

02 

1.17984E GO 

1.125E 

02 

lo 2 8336E-01 

a. 036E 

01 

2.34143E-C1 

9. 0C3E 

01 

2. 2E767E-01 

1.009E 

02 

7.31661E-01 

1.130E 

02 

1.26757E-01 

8.C73E 

01 

2.23175E-01 

9.044E 

01 

2. 3C4C4E-01 

1.013E 

C2 

5.30090E— 01 

1.1 356 

02 

1.25270E-C1 

8.110E 

01 

2.32237E-01 

9.CE5E 

01 

2.32391E-01 

1.018E 

02 

4.17057E-01 

1.140E 

02 

1.23862E-01 

8.147E 

01 

2.31331E-01 

9. 126E 

01 

2.347ESC-G1 

1.022E 

C2 

3. 45718 E— 01 

1.145E 

02 

1.22523E-01 

3. 184E 

01 

2.30461E-C1 

9. 1 £ 8E 

01 

2. 37670E-01 

1.027E 

02 

2.97246E-01 

1.151E 

02 

lo 21243E-01 

3.221E 

Cl 

2.29628E-01 

9.2106 

01 

2. 4 1 128E-01 

1. 032E 

02 

2.62628E-01 

1.156E 

02 

lo 2 00 17 E-01 

9. 258E 

01 

2.28835E-01 

9.251E 

01 

2. 4 5 276E-01 

1.036E 

02 

2. 3696 IE— 01 

1.161E 

02 

lo 18837E-01 

e.296E 

01 

2.28CE4E-C1 

9. 294E 

01 

2. 5C2£2E-01 

1.041E 

02 

2o 173828—01 

1.166E 

02 

1.17699E-01 

3.334E 

01 

2.27379E-01 

9.336E 

01 

2.E6275E-01 

1.046E 

02 

2.02105E-01 

1.172E 

02 

lo 16597E-01 

3. 372E 

01 

2.26724E— 01 

9.378E 

01 

2.63563E-01 

1.05 IE 

02 

1.B9947E-01 

1.177E 

02 

lo 15528E-01 

3.410E 

01 

2. 26 123E-01 

9.421E 

01 

2. 72458E-01 

1.055E 

02 

I. 80 1 07E-01 

1.182E 

02 

lo 14488E- 01 

8.448E 

01 

2o 25 579E-01 

9. 4£4E 

01 

2.S3410E-01 

1.060E 

02 

1.72021E-C1 

lo 18 BE 

02 

1. 13475E-C1 

3. 487E 

01 

2. 25C98E-01 

9.5C7E 

01 

2. C 7C54E-01 

1.065E 

02 

1.65285E-01 

1.193E 

02 

1. 12485E-01 

3.525E 

01 

2o 24687E-C1 

9.550E 

Cl 

3. 142S5E-01 

1.070E 

02 

1.596028-01 

1.199E 

02 

1.11518E-01 

8. 564E 

01 

2.2435CE-C1 

9. 594E 

01 

3. 3£482E-01 

1.075E 

02 

1. 54748E-01 

1.204E 

02 

lo 10570E— 01 

8. 6036 

01 

2o 240S6E-01 

9. 637E 

01 

3. 65701E-01 

1.080E 

02 

1. 50553E-C1 

1.209E 

02 

lo 09641E-01 

8.642E 

01 

2. 23933E— 01 

9.6eiE 

Cl 

4. CS3S3E-01 

1.C85E 

02 

1.46901 E— 01 

1.215E 

02 

1.08729E-O1 

8.682E 

Cl 

2.2387OE-01 

9.725E 

01 

4.61521E-01 

1.C89E 

02 

1.43679E— 01 

1.220E 

02 

1.07832E-01 

3.721E 

01 

2.23919E-01 

9.770E 

01 

5o456«6E-01 

1.094E 

02 

1.40812E-01 

1.226E 

02 

lo 06949E— 01 

8.761E 

01 

2.24092E-01 

9. 814E 

01 

6.63450E-01 

1.099E 

02 

1.38239E-01 

1.232E 

02 

lo 06080E-01 

8. 801E 

01 

2.2440CE-C1 

c o £ 59E 

01 

9.44290 E-01 

1.104E 

02 

1.35909E-01 

1.237E 

02 

1.05223E-C1 

8. 84 IE 

01 

2.24872E-C1 

9.9C4E 

01 

1.6C900E 00 

1.109E 

02 

1.33783E-01 

1.243E 

02 

lo 04379E-01 

8. 88 IE 

01 

2.25516E-01 

S.949E 

01 

6.4E621E 00 

1. 115E 

02 

1.31829E-01 

1.249E 

02 

1.03545E-01 

8. 92 IE 

01 

2. 26 3€ IE-01 

9.994E 

01 

2.96041E 00 

1.120E 

02 

lo 30020E— 01 

1.254E 

02 

lo 02721E-01 



GREATEST VALUE = 6.4E6UE CO 


LOWEST VALUE 


■ 372 E C1I......X 


8.761E Oil 


9# 16 8 E 01I...*«»X 


»OME 021* 
I 


• 051E C2I X 

I • X 


•099E 021.. ..X. 


.15 IE C2I....X. 
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FREC 

Phi 


FREQ 

Phi 


FREQ 

PHA 


FREQ 

PHA 


80 OOOE 

01 

-8o 76958E 

00 

8o 5 62E 

Cl 

-lo9E211E 

01 

lo 004E 

02 

U03004E 

02 

lo 1 25 E 02 

3 0 8 1297E 

01 

8o03fcE 

01 

-9 0 0C1 15E 

00 

9o 00 2E 

01 

-2c C6726E 

01 

lo O09E 

02 

9o 8 7059E 

01 

lol30E 02 

3o 7 214 8E 

Cl 

80 C73E 

01 

-9c 24275E 

00 

9o C44E 

01 

-2o 15820E 

01 

lo 013E 

02 

9o42829E 

01 

lo!35E 02 

3 0 63599E 

01 

80 1 10E 

01 

-9o 495 04 E 

00 

9o C85E 

01 

-2o 2E546E 

01 

I0OI8E 

02 

9o00972E 

01 

lo 140E 02 

3o 55607E 

01 

80 147E 

01 

-5o *( 5 6 5 7 E 

00 

9o 126E 

01 

-2c 3596 IE 

01 

lo022E 

02 

8o58995E 

01 

lo 145E 02 

3o 48122E 

01 

8d84E 

01 

-lo 00340E 

01 

9cl68E 

01 

-2o 47 129E 

01 

lo 027E 

02 

8ol8335E 

01 

lol51E 02 

3o 41107E 

01 

80 221E 

01 

-lo 03 22 1 E 

01 

9o 2 ICE 

01 

-2o 5 C 124E 

01 

lo 032E 

02 

7o79355E 

01 

lo 156E 02 

3o 34525E 

01 

80 25 BE 

01 

-lo 06238E 

Cl 

9c 2 5 IE 

01 

— 2o 1 2020E 

01 

lo036E 

02 

7o42290E 

01 

I0I6IE 02 

3o 28342E 

01 

80 296E 

01 

- lo 0 9 397E 

Cl 

9o 294E 

01 

-2of 59C6E 

01 

lo 04 IE 

02 

7 o 07314E 

01 

I0I66E 02 

3o 22530E 

01 

80 334E 

01 

-lo 12710E 

01 

9o336E 

01 

-3o 0C8 7 2E 

01 

lo 046E 

02 

60 745 17E 

01 

lol72E 02 

3 0 1 7 0 5 9E 

01 

80 372E 

01 

-lo 16184E 

01 

9o 378E 

01 

-3o 17C28E 

01 

lo 05 IE 

02 

6o43907E 

01 

lol77E 02 

3o 11908E 

01 

80 4 10E 

01 

-lo 19833E 

01 

9o 421E 

01 

-3o 34477E 

01 

lo 055E 

02 

60 1 5445 E 

01 

lol82E 02 

3o 07051E 

01 

8o 44 OE 

ox 

-lo 23667E 

01 

9o 464 E 

01 

-3o 5 3334E 

01 

I0O6OE 

02 

5» 89052E 

01 

I0I88E 02 

3o 02470E 

Q1 

8 0 487E 

01 

-lo 27 699E 

01 

9o5C7E 

01 

-3o 73732E 

01 

lo 065E 

02 

5 0 64624E 

01 

lo!93E 02 

2o 98144E 

01 

8o 525E 

01 

-lo 31942E 

Cl 

9o 550E 

01 

-3c 1 57 c 5E 

01 

loC70E 

02 

5o42041E 

01 

lo 199E 02 

2o 94058E 

01 

8c 564E 

01 

- lo 264 1 3E 

01 

9o 554E 

'01 

-4c 19652E 

01 

lo075E 

02 

5 0 2 1171E 

01 

lo 204E 02 

2o 901 94E 

01 

3o 6Q3E 

01 

-lo 41128E 

01 

9<> 6 27E 

01 

-4o 454 19E 

01 

I0O8OE 

02 

5oQ1887E 

01 

lo209E 02 

2o 86541E 

01 

8o 642E 

01 

-lo 46105E 

01 

9o 681E 

01 

-4o 73214E 

01 

lo085E 

02 

4o 84066E 

01 

1 0 215E 02 

2o 83083E 

01 

8o 682E 

01 

-lo £ 1366E 

01 

9c725E 

01 

-5c 03114E 

01 

loC89E 

02 

4o 67 587E 

01 

lo2Z0E 02 

2o 79808E 

01 

8o 721E 

01 

-lo 56928E 

01 

9c77CE 

01 

-5c 25174E 

01 

lo 094E 

02 

4-o 52336E 

01 

lo226E 02 

2o76707E 

01 

8o 761E 

01 

- lo 628 20E 

01 

9o 814E 

01 

-5o 69377E 

01 

lo 099E 

02 

4o 38207E 

01 

lo 232 E 02 

2o 73 767E 

01 

8 0 801£ 

01 

-lo 6 C 064E 

01 

9o £ 59E 

01 

-6o C5619E 

01 

lo 1 04E 

02 

4o 2510 5E 

01 

lo237E 02 

2o 70980E 

01 

8o 841E 

01 

-lo 75693E 

01 

9o 9C4E 

01 

-6o 435E4E 

01 

lo 109E 

02 

4ol2939E 

01 

lo243E 02 

2 0 68337E 

01 

S, 881E 

01 

-lo 82 73 6 E 

01 

9o 94SE 

01 

-6. EC513E 

01 

lo 11 5E 

C2 

4o01631E 

01 

lo 249E 02 

2o 65829E 

01 

8o921E 

01 

- lo 90228E 

01 

9o 994E 

01 

lo 07 154E 

G2 

lol20E 

02 

3o91104E 

01 

lo254E 02 

2o 63450E 

01 




ll 523826 00* 





-49 


****NASAP**#* 

NETWORK ANALYSIS AND SYSTEMS APPLICATION PROGRAM 
THIS VERSION WAS DEVELOPED AT UCLA ENGR. CEPT. 


TREE NASAP PROBLEM TELEMETER 

J I ( 1-2 ) = lo 0 

CJl(l-2)=10OMF 

it$$ UNITS ARE MF 
RE1( 1-2 ) =2 OK 

ttt$ UNITS ARE K 
CJ2<2-3)=2MF 

$S$S UNITS ARE MF 
R J2 ( 2-3 ) =1 CO 
RE3( 1-31=220 
LEI ( 4-1 )=Co 25 
CJ3t 2-4 ) = 2o OMF 

$$$t UNITS ARE MF 
CJ413-1 )=47MF 

$$J$ UNITS ARE MF 
CJSI 3-4 }=10MF 

t$$$ UMTS ARE MF 
DJ2/ IRJ2 (4 — 3 1 =Co 3 
END 


ELEMENT NUMBER 

ELEMENT NAME 

DEPENDENCY (IF ANY I 

ORIGIN NODE 

TARGET NODE 

VALUE 

TAG 

GENER 

1 

J1 


1 

2 

1 a 00000000 E 00 

0 

1 

2 

CJ1 


1 

2 

9. 999993200-05 

0 

0 

3 

RE1 


1 

-2 

2o 000000 OOE 04 

1 

0 

4 

CJ2 


2 

3 

lo 999998 86E-C6 

0 

0 

S 

RJ2 


2 

3 

l.OOOOOOOOF 02 

0 

0 

6 

RE3 


1 

3 

2.20000000E 02 

1 

0 

7 

LEI 


4 

1 

2.499998 8 IE-01 

1 

0 

8 

CJ3 


2 

4 

1. 99999886E-C6 

0 

0 

g 

CJ4 


3 

1 

4. 69999650E-C5 

0 

0 

10 

CJ5 


3 

4 

9.99999429E-06 

0 

0 

li 

DJ2 

IRJ2 

4 

3 

> 2. 99999893 E— 01 

0 

1 


2 

3 

304 

6 

3 

6 

1536 

2C9 6 

4 

-7 

2C48 

1280 



WGRSTCASE 


ELEMENT 

CJ1 
R El 
CJ2 
RJ2 
RE3 
LEI 
CJ3 
CU4 
CJ5 
DJ2 

NAME 


TOLERANCE 

GolOOG 
Co 1000 
OolOOO 
OolOOO 
Co 1000 

OolOOO 
OolOOO 
Co 1000 
OolOOO 
Oo 1000 


FLGWC-RAPH 




FRCM 

TO 

S 

VALUE 


13 

2 

1 

9o 599S9320E- 

-05 

3 

14 

0 

2o COOCOCCOE 

04 

15 

4 

1 

lo 5995 9 886E- 

-06 

“16 

5 

0 

9o 999 99751 E- 

-03 

6 

17 

0 

2o 2CCC00G0E 

C2 

7 

18 

1 

2o499 5 9 881E- 

-01 

19 

8 

1 

lo 5S995886E- 

-C6 

20 

9 

1 

“ -4 0 699 95650 E-C5 

21 

10 

1 

9 0 599S9429E- 

-06 

5 ' 

11 

0 

2» 599 SS893E- 

-01 

4 

3 

0 

lo COOCOCCOE 

00 

14 

15 

0 

-loCOOCOOCOE 

00 

5 

3 

0 

lo COCCOCOOE 

00 

14 

16 

' 0 

— lo COOCOCCOE 

00 

8 

3 

0 

loGOCCOOOOE 

00 

14 

19 ' 

0 

-lo COCCOCOOE 

00 

1 

3 

0 

— lo GOGCOOOOE 
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14 

12 

0“ 

-lo COCCOCOOE 

00 

2 

3 

c 

-lo COCCOCOOE 

00 

“ 14 

13 

0 

’ loCOOCOOOOE 

00 
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6 

0 

lo OOGCOGOOE 

00 

17 

20 

0 

-lo COCCOCOOE 

00 

10 

6 

0 

loOOOCOOOOE 

00 

17 

21 “ 

c 

-loCOOCOOOOE 

00 

4 

6 

0 

-loCOOCOOCOE 

00 

17 

15 

0 

loCOOCOOOOE 

00 

5 

6 

0 

-loCOOCOOCOE 

00 

17 

16 

0 

loCOOCOOOOE 

00 

11 

6 

0 

-loOCOOOCOOE 

00 

17 

22 

0 

— lo CGOCOCOOE 

00 

8 

7 

0 

lo GOO COGOOE 

00 

18 

19 

0 

-loCOOCOOOOE 

00 

10 

7 

0 

lo GCGCGOGOE 

00 

18 

21 

0 

-loCOOCOOOOE 

00 

11 

7 

0 

-loCOOCOOOOE 

00 

18 

22 

0 

-lo COCCOCOOE 

00 


050 



ILE1/IJ1 


NTIMES= 1 


THE UNKNOWN TRANSMITTANCE 
24588 

GOES FROM NODE 
6001 

1180224 

288001 

3065304 

148004 

3098088 

756003 

786816 __ 

192002 

2065304 

_ 148004 

3058C88 

756003 

3100136 

1280 0.0 3_ 

2260448 

576002. 

2608376 

1660003 

870824 

1236002. 

25592G0 

1648002 

1C34744 

1276003 

247928 

1G84001 

2313450 

1589001 

84138 

1045000 

248C58 

1C85001 

198752 

1C72000 

49176 

12001 

245880 

60001 

245880 

60001 

2278618 

557002 

81560 

20000 

2211402 

565001 

54C536 

132001 

541066 

133001 

2229312 

544001 

163920 

40001 

1S67C4 

48000 


7 70 1 
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NO, OF FIRST CPOER LGCPS= 29 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
25 


TRANSFER FUNCTION 


So 881E C4 ♦ 4.282E CIS 


XoCOCE QOS * O.C 


C.0 






2 

3 

4 
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7a 11886E-C1 

lalSSE 

02 

8o01263E-02 

I 0 OI 8 E 

02 

5o 56S01E-01 

lal40E 

02 

7a 7Q1S2E— 02 

lo 022 E 

02 

4a 56486E-01 

lo 145E 

02 

7o 41163E-02 

lo027E 

02 

3o 86130E-01 

la 151 E 

02 

7o 13983E-02 

lo032E 

02 

3o 34 1 16E— 01 

lo 156E 

02 

60 88488E-02 

lo 036E 

02 

2a94081E-01 

I 0 I 6 IE 

02 

6o64518E-02 

io04ie 

02 

2o 623 238—01 

lo 1668 

02 

60 4 1 9526—02 

lo046E 

02 

2o36522E-01 

lo 172E 

02 

6a20662E-C2 

lo051E 

G 2 

2 a 1 5 1 42 E — 01 

lol77E 

02 

60 00553E— 02 

lo055E 

02 

lo S7140E-01 

lo 1 82E 

C 2 

5a 81523 E- 02 

la060E 

02 

la 817758-01 

1,1886 

02 

5a 634938—02 

loC65E 

02 

lo68507E-01 

lo 1 93 E 

02 

5o46385E-02 

la070E 

C2 

1o56S37E-02 

loZ99E 

02 

5o 30134E-C2 

lo075E 

02 

lo46755E-01 

lo204E 

02 

5o 14670E-G2 

la080E 

02 

la 37729E-C1 

lo 209 E 

02 

4o 99946E-02 

lo085E 

02 

lo 29673E— 01 

lo 215E 

02 

4o 85912E-02 

la C89E 

G 2 

lo 22439E-G1 

lo 220 E 

02 

4o72514E— 02 

lo094E 

02 

la 15907E-01 

lo 226E 

02 

4o 59717E-02 

lo 099E 

02 

I 0 OSS 8 IE-OI 

lo232E 

02 

4o 47480E-02 

la 104E 

02 

la C4580E— 01 

lo 237 E 

02 

4o 35766E— 02 

la 109E 

02 

9o 96376E-02 

U243E 

02 

4 0 24546E-C2 

la 11 5E 

02 

9o 50984E-02 

lo249E 

02 

4o 13787E-C2 

lol20E 

02 

9o C9138E— 02 

lo254 E 

02 

4a 03461E— 02 



GREATEST VALUE * E.39652E 00 


LOWEST VALUE = 0,0 


INTERVAL * 7.30132E-02 


8.000E Ol.*.oX.*«« 

I * >' 

I .X 
I dI 
t oX 

I »x 

I .X 
! *X 
I «x 

I *x 

8.372E 01U*.x.. 

I .X 

I «x 

I »x 

I .X 
I . X 

I x 

I «X 

I «x 

I eX 

8*76 IE OH.g.X.t 
I » * 

I X 

I . X 
I * X 
I X 

I . X 

I * x 
I « x 
I • x 

9.166E Oil «»«>• 

I • X 
I * x 

I . X 
I • X 
I • X 
I • X 
1 • x 

I e X 


1 • * 

9.594E Oil X ♦< 

I « X 
I • X 

I « X 

I . X 

I • X 

I * X 

I * 

I • X 

I . 

1 004 E X •< 

I • X 

I . X 

I . X 

I • X 

I • X 

I • X 

I . X 

I « X 


I • X 
U051E C2I.P...X 
I * X 
1 • X 

I 6 X 
I X 
I . x 
I * x 

I . X 
I • x 
I • X 

1.C99E C21..*.X. 

I -X 

I *X i 
I .X 

I .X 

I *x 
I .x 

I .X 
I .X 
I » X 

1« 15 IE C2I...X** 

I .X 
I oX 
I .X 
I «X 
I *X 
I *X 
I .X 

I *x 

I .X 

1.204E C2Uo.X.. 

I *X 
I .X 
I .X 
I .X 

I .x 

I *X 

I o< 

t .x 
I *x 


C-65 



FREQ 

PM 


FREQ 

PM 


80 OOOf 

01 

4o 180G2E 

01 

80 St 2E 

01 

3o E 223 IE 

01 

80 0 36E 

01 

4o 16 59 IE 

01 

9 o 0C2E 

01 

3 0 8I974E 

01 

80 073E 

01 

4o 15181E 

01 

9o 044E 

01 

3o £C6 19E 

01 

80 1 10E 

01 

4o 1377 3E 

01 

9 0 c e SE 

01 

3o 7 C 268E 

01 

80 147E 

01 

4o 12367E 

01 

So 126E 

01 

3o 77 9 18E 

01 

80 184E 

01 

4o 1C964E 

01 

9a 168E 

01 

3o76572E 

01 

80 221 C 

01 

4o C9562E 

Cl 

9o 2 10E 

01 

3o 75229E 

01 

80 258E 

01 

4o C 8 163E 

01 

9o 25 16 

01 

3ol 3889E 

01 

Eo 296E 

01 

4o 06 7 1 4E 

01 

9a 254E 

01 

3o7 2552E 

01 

80 334E 

01 

4 0 C5368E 

01 

9o 3 36E 

01 

3o 7 12 19E 

01 

80 372E 

01 

4o 03975E 

G 1 

9 0 378E 

01 

3o6 c 667E 

01 

60 4 10E 

01 

4o C25E3E 

Cl 

9o 4 2 IE 

01 

3o66561E 

01 

80 448E 

01 

4o 01192E 

01 

9o 464E 

01 

3o 6 7 229E 

01 

80 487E 

01 

3o 598C5E 

01 

9o 5C7E 

01 

3o 6 592 IE 

01 

80 5 25E 

01 

3o c 642CE 

01 

9a 550E 

Cl 

3o646CSE 

01 

80 564 E 

01 

3o 97037E 

01 

9o 594E 

01 

3o63303E 

01 

80 6C2E 

01 

3o 85656E 

G 1 

9o 6 37E 

01 

3 0 £ 20C6E 

01 

80 642E 

01 

3o 94277E 

01 

9ofc81E 

01 

3o 6C7 17E 

01 

80 682E 

01 

3o 92900E 

01 

9o 725C 

01 

3oS9444E 

01 

80 72 IE 

01 

3o91S26E 

Cl 

9o 7 70E 

Cl 

3o 5E196E 

01 

80 76 IE 

01 

3o 90154E 

Cl 

9o 8 14E 

01 

3o56567E 

01 

80 801E 

01 

3 0 8e785C 

Cl 

9o £ 59E 

01 

3o 5567CE 

01 

80 84 IE 

01 

3o £ 74 1 8E 

01 

9o 9C4E 

01 

3o55055E 

01 

8088 IE 

01 

3o E6054E 

01 

5o 949E 

01 

3a 57 2C 7E 

01 

80 92 IE 

01 

3o £4 69 IE 

01 

9o 9S4E 

01 

-lo45C68E 

02 


FREQ PHA 

lo004E 02 -lo45088E 02 
lo 009E 02 ~lo45184E 02 
lo013E 02 -1 0 45298E 02 
lo018E 02 -U45419E 02 
lo 02 2E 02 -lo45542E 02 
lo 027E 02 -lo 45666E 02 
lo 032E 02 -lo4579lE 02 
lo 036E 02 -lo 45917E 02 
lo 04 IE 02 -lo46043E 02 
lo C46E 02 -1 0 461 69E 02 
lo051E 02 -1 0 46295E 02 
lo 055E 02 -lo464 20E 02 
I 0 C 6 OE 02 -lo46546E 02 
lo 065E 02 -1o46671E 02 
lo070E 02 -lo46796E 02 
lo 075E 02 -lo 46921 E 02 
I 0 O 8 OE 02 - lo 47046E 02 
lo 085E 02 -lo47171E 02 
2o C89E 02 -lo 472 95£ 02 
lo 094E 02 -lo47419E 02 
lo G99E 02 -lo47543E 02 
lo 104E 02 -lo 47666E 02 
lo 109E 02 -lo47789E 02 
lo 115E 02 -lo47912E 02 
lo 120E 02 -lo 48035E 02 


FREQ PHA 

lo 125E 02 - lo 4815 7E C2 
lol30E 02 -lo 482 79E 02 
lo 1 35 E 02 -lo48401E 02 
lol40E 02 -lo 48522E 02 
lo 145 E 02 -lo 48644E 02 
lol51E 02 -lo 48764E 02 
lo 1 56E 02 -lo 48885E 02 
I 0 I 6 IE 02 -lo 49005E 02 
I 0 I 66 E 02 -lo 49125E 02 
lol72E 02 -lo 49245E 02 
lo 177E 02 -la 49364E 02 
lo 1 82E 02 -lo 49483E 02 
I 0 I 88 E 02 -lo49602E 02 
lo 193E 02 -lo 49720E 02 
lol99E 02 -lo 49838E 02 
lo204E 02 -lo49956E 02 
lo 209 E 02 -lo 50073E G2 
lo 215E 02 -lo 50191E 02 
lo220E 02 -lo50307E 02 
lo 226E 02 - lo 50424E 02 
lo232E 02 -lo 50540E 02 
lo 2 37E 02 -lo 50656E 02 
lo243E 02 - lo 5077 IE 02 
lo249E 02 -lo 50887E 02 
lo 254E 02 -lo 51002E 02 



greatest value 


4« 1 BO C2E 01 


LOWEST VALUE 


■1.S1002E 02 


INTERVAL * 1.67654E CO 
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PLOT ( 7 Y=RE/FR=0/TC=1C0 ) 

IKC210I IBCOM - PROGRAM INTERRUPT- IMPRECISE 


CLC PSW IS FF45 00400 22 34 A E6 


TRACEeACK FOLLOWS- ROUTINE ISN REGo 14 REGo 15 REG, 0 REGo 1 
FLCT OiSS 425 1C49A O0234O1C OOOOOOOO 0021C9A4 

MAIN 00019472 0121C518 00000015 0023BFF8 

ENTRY PCINT= C121C518 

STANEARO FIXUP TAKEN , EXECUTION CONTINUING 


THE TRANSFORM OF TEE RESPONSE IS 

fcXPo OF S NLMERo CCEFFS© CSNCM© COEFFS, 


0 -60COOCCE 01 2o C3860E 02 

1 -2.5SSS6E-02 1.04354E 01 

2 6o07l5SE-C4 2 o762C7E-02 

3 OoO 2o66273E-05 

A OoO 60 5 1 544 E— 08 

0 

1 

07 

00 


FREQ 

MAG 

FPEO 

MAC 

FREQ 

MAG 

FREO 

MAG 

OoO 


-2o54319E-01 

2o AC6E 

01 

-lo278C7E-01 

Ao 817E 

01 

-7o72230E— 02 

7o225E 

01 

— 5o 27031E— 02 

1»0A7E 

00 

-2o79430E-01 

2o513E 

01 

— lo 245236-01 

A© 922E 

01 

— 7o 59075E-02 

7o330£ 

01 

-5© 191326-02 

2o G94E 

00 

-2o 659CSE-C1 

2© 618E 

01 

-lo213aAC-01 

5.026E 

01 

-7o4S330E-02 

7oA35E 

01 

-5o 11403 E-02 

3o 1A1E 

00 

-2o 5357 56-01 

2o723E 

01 

-lo 1628 IE— 01 

5o131E 

01 

-7o31976E-02 

7 0 539E 

01 

-5© 038386-02 

A0I8SE 

00 

-2o42278E-Gl 

2o 827E 

01 

— lo 155C6E-01 

5©236E 

01 

-7o 19001E-02 

7o644E 

01 

-4c96432£-02 

5© 236E 

00 

-2© 2 1892F-G1 

2o932E 

01 

-lo 127A9E-01 

5o340E 

01 

-7 o 06385£-02 

7.7496 

01 

-A. 891816-02 

60 2836 

00 

-2o 223 10E-0 1 

3o C 37E 

01 

-lo 1010AE-01 

5o445E 

01 

-60 9A113E-02 

7o 853E 

01 

-A« 82078 E-02 

7o 3306 

00 

-2o 13AA3E-C1 

3o 1A1E 

01 

-lo G7 565E-01 

5o 550E 

01 

-60 82 172E-02 

7o958E 

01 

-Ao 75 L 206-02 

80 377E 

OC 

- 2o 052 14 E- G 1 

3o 246E 

01 

-lo C512A E— 01 

5o 65AE 

01 

-60 70SA9E-02 

8o063£ 

01 

-Ao68303E-02 

9o A2AE 

00 

-lo 57555E-C1 

3o3£lE 

Cl 

— lo02777E— 01 

5o 7596 

01 

—60 59230E-02 

80I6BE 

01 

-4©6 1621 E-02 

1„04 7£ 

Cl 

-lo^0AC9£-0I 

3oA56£ 

01 

-lo 005186-01 

5o864E 

01 

-6„A 8205E-02 

So2 72E 

01 

-4© 550 71 £- 02 

lo 152E 

01 

-lo E3726E-C1 

3© 5 ACE 

01 

— 9o 63A12E-02 

5»969E 

01 

— 6 o 37A60E— 02 

8©377E 

01 

-4o A86A9E-02 

lo 257F 

01 

- lo 77A62E-01 

3© 6656 

01 

-9o62A33E-02 

60 073E 

01 

—60 26986E-02 

8oA82E 

01 

-4o42352E-02 

lo 361E 

01 

-1o71578E-C1 

3o 770F 

01 

-9©4 5156E-0H 

60 178E 

01 

—60 16773E— 02 

S.586E 

01 

— 4o 361746— C2 

lo 466E 

01 

-lo 66CA2E-01 

3o 8 7AE 

01 

-9o 22663E-02 

60 283E 

01 

— 6o06809E-02 

8o591E 

01 

-4o30114E-02 

U571E 

Cl 

-lo60823E-01 

3.979E 

01 

-9© C3797E-02 

6©387E 

01 

-So 970886-02 

8.796E 

01 

-4©24168E-02 

lo 6756 

01 

-lo 5565AE-01 

AoOEAE 

01 

-Bo E5SC3E-02 

60 A92E 

01 

-5o87599E-02 

8o901E 

01 

— 4o 1 83326—02 

lo 7806 

01 

-lo5122 IE-01 

Ao 18 C E 

01 

-80 679 30E-02 

60 597E 

01 

— 5o7833AE-02 

9o005E 

01 

-4o 12604 E-02 

lo 885E 

01 

-lo A681AE-01 

Ao 2S3E 

01 

-8© 5C67QC-02 

6„702E 

01 

— 5o 65285E-02 

SollOE 

01 

-4© 069806-02 

lo 990E 

01 

-loA2fc22E-01 

Ao 3 C 8E 

Cl 

-8o3A353E-02 

60 806E 

01 

— 5o 60AA5 E-02 

9©215E 

01 

— 4o 01458E-02 

2o 09AE 

01 

-lo 386A2E-01 

Ao5C3E 

01 

-8 0 1S35AE-02 

6o 91 IE 

01 

— 5o 51806E-02 

9o3196 

01 

— 3o 96035E— 02 

2o 199E 

01 

- lo 3A85 EE- Cl 

A© 6 C 7F 

01 

-80 C2SA9E-02 

7o016E 

01 

-5©43362E-02 

9.A2AE 

01 

-3.907C86-02 

2o 30AE 

01 

- lo 312A 7E-C1 

A© 7126 

Cl 

-7o 878 156—02 

7 0 12 CE 

01 

-5o35106E-02 

9©529E 

01 

-3o 85475E-02 



GREATEST VALUE 


0.0 


LCtiEST VALUE =* -2.9*3196-01 


INTERVAL 


2* 5593CE-G3 


1*0476 Cl 


2.C94E 01 


3. 14 IE Cl 


4.189E 01 


5.23AE 01 


6.283E 01 


7.330E 01 


8»377E 01 


9.424E 01 
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ROOTS, POLES 


*** SVOBGCA POLYNOMIAL ROOT F INDER <“** 


HoFoOKRENT 
J ANo 1969 


Q 

i 

-r 

o 


POLYNOMIAL CF CEC-REE A — 

0 

Oo 203859«3'6E 03 X 0 o 104353 5S95E 
ACCURACY RECUESTED — 6 SICNIFlUNT 


1 2 3 

02 X 0o2762C65C63E-01 X 0»2662734187E-04 X 

FIGURES 


REAL PART 

IMAGINARY PART 

EXFCNENT 

-3o 644 140000 

OoO 

2 

O 0 OOOC 8 OOOO 

60 260100000 

2 

O 0 OOCC 8 OOOO 

- 60 260100000 

2 

-2o 064200000 

CoO 

1 


4 

Oo 6915 43 9599 E- 07 X 


*** SVOBOCA POLYNOMIAL R00TFIN0ER *** 


HoFoOKRENT 
JANo 1969 


POLYNOMIAL OF DEGREE 2 — 

0 12 
Co 599S995422E 02 X C„259S9CC566E-01 X -Oo 6071 5 65699E-03 X 

ACCURACY RECUESTEC — 6 SIGNIFICANT FIOJRES 

REAL PART IMAGINARY PART EXPONENT 

-2 o 93666000C 0 o 0 2 

3o364£5GC0C OoO 2 



SENSITIVITY OF POLES TO CJ1 


POLES 


SENS ITIVITY 


REAL 

-3o£441E C2 
80 00Q0E-C3 
80 00Q0E-G3 
-2 0 0642E Cl 


IMAG 
Oo G 

to 2601E 02 
-60 2601E 02 
OoC 


REAL 

60 8 34 2E OJ 
-5o 9 16 2E-03 
-5o 9182E-03 
lo 591TE Cl 


IMAG 

OoG 

-2oCSllE 02 
loT £S2E 02 
Oo 0 


SENSITIVITY OF POLES TO RE 1 


POLES 


SENSITIVITY 


REAL IMAG 


REAL 


IMAG 


3o 6441 E C2 
8 o 0000E-C3 
8o OOOOE-03 
2c 0642 E 01 


OoO 

6o 2601E 02 

-6o 26 01 E 02 
CoO 


So 261TE-C2 
loSITSE 01 
lo9112E Cl 
3o 8550E-C1 


OoC 

-2o4C5SE 02 
lo4154E 02 
OoO 


SENSITIVITY OF POLES TO CJ2 


FGLES 


SENSITIVITY 


REAL IMAG 


REAL IMAG 


-3o 6441E C2 
8o 0000E-03 
8o OCOOE-C3 
-2o 0642E 01 


OoC 

£>o 2601E 02 
-6o 2601 E 02 
OoC 


lo£T31E 01 
■3o 1O10E-C5 
■3ol01CE-C5 
2o 561SE-C2 


Oo C 

-8o 3186E 00 
lo 7 944 E 01 
OoC 


SENSITIVITY OF POLES TG RJ2 


POLES 


SENSITIVITY 


REAL 


-3o 6441 E C2 
8o 0000E-C3 
8o OOOOE-C3 
-2o C642E Cl 


IMAG 

OoO 

6o 2601E 02 
-6o 2601E 02 
OoO 


REAL 

-2o9912E 02 
-loS^45E 01 

— lo S44 5E 01 

— 3o 29 68E 00 


IMAG 

OoC 

-7o4025E 01 
-lo 6C9 2E 02 
OoO 


SENSITIVITY OF POLES TO RE3 


POLES 


SENSITIVITY 


REAL IMAG 


REAL 


IMAG 


3o 6441E C2 
8o OOOOE-C3 
8o 0000E-G3 
2o0642E 01 


CoO 

6o 2601E 02 
-6 0 2601E 02 
OoC 


6o 2044E Cl 
■2o 804 6 E- 01 
2 0 8046E-01 
lo697 IE Cl 


OoC 

-2o 1EC3E 02 
lo 8059E 02 
Oo C 
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SENSITIVITY OF POLES TO LEI 


POLES 



SENSITIVITY 


REAL 

IMAC- 


REAL 

I PAG 


-3o£44lE C 2 

OoC 


lo 2764 E CO 

OoO 


8o0000E-03 

60 26 01E 

02 

— 3o 9256 E-C 9 

-lo 2C7CE 

02 

8o00C0E-03 

60 2601E 

02 

-3o9256E-C9 

7o 1477E 

01 

— 2o 0642E Cl 

OoO 


-So 471CE-C3 

OoC 


ITIVITY OF POLES 

TO CJ3 






POLES 



SENSITIVITY 


REAL 

I NAG 


REAL 

INAG 


-3o £441E C2 

OoO 


lo 8455E CC 

OoO 


80 COCOE— C3 

60 2601E 

G2 

-lo 1637E-04 

-2o 66 576 

01 

8o0000E-03 

•6 0 2601E 

02 

— lo 1837E-C4 

lo 7046E 

01 

-2o 0642 E Cl 

OoO 


3o 16T 2 E-01 

OoC 



SENSITIVITY OF POLES TO CJ4 


PCLES 


SENSITIVITY 


REAL 1MAG 


REAL INAG 


3o 6441E C2 
8o OOOOE-03 
80 COCOE-03 
2o 0642E Cl 


CoO 

6 o 2601E 02 
— 6 0 26 01E G2 
CoO 


2o3379E 02 
lo 5954E-03 
lo 5934E-C3 
3o6222E CC 


OoO 

-lo 4 712E 02 
2 0 5368E 02 

Oo 0 


SENSITIVITY OF POLES TO CJ5 


PCLES 


REAL 


-3o £441E C2 
8o 0000 E— 03 
8o00G0E-03 
-2o 0642E Cl 


IN AG 
QoO 

60 2601E 02 
-6 0 2601E 02 
OoO 


SENSITIVITY 

REAL INAG 

4»0426E 01 OoO 

-3o 39C2E-C A -U141GE 02 

-3o 39C2E-C4 808SA6E 01 

7o6547E-Cl OoO 


SENSITIVITY OF POLES TO DJ2 


PCLES 


SENSITIVITY 


REAL I PAG 


REAL INAG 


3 0 £441E C2 
80 OOCOE— C3 
80 OOOOE-03 
2o 0642 E Cl 


OoO 

60 2601E 02 
—60 2601E 02 
CoO 


4o 27 23E 01 
60 427 6E— 02 
60 427£E-C2 
2o 9C £ 6E 00 


OoC 

-7o 5835E 00 
-lo 7 595E 01 
CoO 
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PLOTt7Y=SE/FR=60/TO=126/EL=CJll 


SENSITIVITY WITH RESPECT TC CJI 


THE TRANSFORM OF THE RESPONSE IS 


EXPo OF S 

MJMERc CCEFFSo 

CENCPo COEFFSo 

0 

Oo 0 

lo22316E 04 

1 

4o631 e 8 E 02 

6o31421E 02 

2 

loTSESlE 00 

lc80477E OO 

3 

-2oS21C3E-03 

-4o020576-03 

A 

-l„12337E-05 

-lo 19296E— 05 

5 

— lo 0320QE— C B 

-l»43701E-08 

6 

-4o06C92E-ll 

~4o 199Q4E-1 1 


FREQ 

MAC 

FREQ 

PAG 

FREQ 

MAG 

FREQ 

MAG 

BoOOOE 

01 

8 c E5256E-01 

8o9£ 2 E 

01 

8 . 73C57E-01 

lo004E 

02 

lo 48177E 00 

lc 125E 

02 

9o63559E-01 

8»036E 

01 

8 c E52C8E-01 

9o CC2E 

01 

80 71578E-01 

lc009E 

02 

lo27297E 00 

lo 130E 

02 

9c 62545E— 01 

8 0 073E 

01 

80 8S14CE— Cl 

9cC44E 

01 

80 69929E-01 

lc013E 

02 

U17780E 00 

lcl35E 

02 

9o 616 16E— 0 1 

8 o U0E 

01 

80 S5052E-C1 

9cC85E 
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PLGTnY=SE/FR=80/TL = 126/EL = CJ3 I 
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01 
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00 
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Cl 
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00 
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9o 7 25E 

01 

lo 799C6E 

02 

lo 089E 

C 2 

-9o 96634E-Q2 

lo220E 

02 

-7o 16563E-02 

8 a 72 IE 

01 

lo 7984 5E 

02 

9 0 77CE 

01 

lo 79914E 

02 

lo0 94E 

02 

— 9o 82 193E-02 

lo226E 

02 

-7o 07533E-02 

£a 7 6 IE 

01 

lo 79 847E 

02 

9a 814E 

01 

lo 79925E 

02 

lo 099E 

02 

-9o 67665E-02 

lo232E 

02 

-60 98642E-02 

80 801E 

01 

lo 7984 9 E 

02 

9a e59E 

01 

1 0 79947E 

02 

Lo 104E 

02 

-9o 53704E-02 

lo237E 

02 

-60 90120E-02 

8 a 8416 

01 

lo 79851E 

02 

9o 9C4E 

01 

1 0 79997E 

02 

lo 109E 

02 

-9o 40755E-02 

lo 24 3E 

02 

-60 81387E-C2 

80 88 IE 

01 

1o79853E 

02 

9o 949E 

01 

— lo 7S644E 

02 

1.U5E 

02 

-9o 27687E-02 

lo249E 

02 

-60 7282 IE-02 

8 a 921E 

01 

lo 7985SE 

02 

9o 994 E 

01 

- 3a 36 544E- 

■01 

lol20E 

02 

-9o 14843E-02 

lo 254E 

02 

-60 64654 E-C2 



GREATEST VALUE * 1.7S9S7E 02 


LOWEST VALUE =» -1.79644E 02 


INTERVAL * 3* 12731E CO 
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PLGT(TY-SE/FR=8C/TC=126/EL=RE3) 


SENSITIVITY WITH RESPECT TC PE3 


THE TRANSFCRM OF THE RESPCNSE IS 

EXPo OF S NOMERo CCEFFSo DENCMo COEFFSo 


0 U716C2E 02 lo 223 16E 04 

1 4o87SUE 02 £c21421E 02 

2 lo 269 8 IE 00 lo8C477E 00 

3 Id 36 £ 1 3E— C3 -4o02057E-03 

4 3o 30 63 1E-C6 -lol92S6E-05 

5 Xo0lC5SE-C9 -1 d43701E-08 

6 0o0 — 4o 19904E— 11 


O 


FREQ 

MAG 

FREC 

MAG 

80COOE 

01 

2o 3514 1 E — 01 

80 96 2E 

01 

2o 27422E-01 

80 036E 

01 

2o 34143E-01 

9c 0 03E 

01 

2c 28766E— 01 

80 C73E 

01 

2o 33 114E— Cl 

9o 04 4E 

01 
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01 

2c 3223 6E-01 
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01 
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01 

2o 31330E— 01 
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01 

2c 24787E-01 

80 184E 

01 

2o 3046CE-01 
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01 
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01 

2c 29627E-C1 
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01 
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8„ 258E 

01 

2o 28834F— 01 

9o 25 IE 

01 

2c 45274E-01 

80 296E 

01 

2o 28C83E-01 
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01 

2o EC259E-01 

80 334E 

Cl 

2o 27378E-01 

9o 3 36E 

01 

2c 56271E-01 

80 372E 

Cl 

2o 26723E-01 

9c 37EE 

01 

2o 6 3558 E-01 

8o410E 

01 

2o 26122E-C1 

80 4 2 IE 

01 

2o 7 2454E-01 

80 448E 

01 

2c 2557 8E-01 

9o 46 4 E 

01 

2o €34055—01 

80 487E 

01 

2o 25C97E-01 

9c 5C7E 

01 

2o c 7C48E-01 

80 525E 

01 

2o246S6E-01 

9o 55CE 

01 

3cl4288E-01 

80 564E 

01 

2c 24349E-01 

9c 594 E 

01 

3o 36473 E-01 

8o603E 

01 

2o 24C9 5E-01 

9c£37E 

01 

3o 6 568 5E-01 

80 642E 

01 

2o 23932E-C1 

80 68 1 E 

01 

4o C 5266E-01 

80 682E 

01 

2c 2386SF-01 

So 725E 

01 

4o 61487E— 01 

80 721E 

01 

2o 23318E—01 

9o 77CE 

01 

5c 456S4E-G1 

80 76 IE 

01 

2o24091F-01 

80 8 14E 

01 

60 63379E-01 

80 801E 

01 

2c244C3E-01 

9o € 59E 

01 

9o 44129E-01 

80 841E 

01 

2o24671E-Cl 

9o 9 04 E 

01 

1 0 60845E 00 

80 881E 

01 

2c 25515E-01 

So848E 

01 

60 476 13 E 00 

80 92 IE 

01 

2o 26359E-C1 

9o8S4E 

01 

2c c 6266E 00 


FREO 

MAG 

FREO 

MAG 

lc GC4E 

02 

lo 18025 E 00 

lcl25E 

02 

lo 28338E-01 

lo 009E 

02 

7o31829E— 01 

lol30E 

02 

lc 26760E-01 

lc 01 3E 

02 

5 o 30190E-01 

lo 135E 

02 

lo 25272E-G1 

I0OI8E 

02 

4o 1 7117E-01 

lol40E 

02 

lo 238 64E— 01 

lo022E 

02 

3o 457 60E-01 

lo 145E 

02 

lo 22525E-C1 

lo 027E 

02 

2o97278E-01 

lolSlE 

02 

lo 21246E-Q1 

lo032E 

02 

2o 62654E-G1 

lo 1 5 6 E 

02 

lo 200 19E-01 

lo 03 tiE 

02 

2o36980 E-01 

I0I6IE 

02 

lo 18839E-01 

io04ie 

02 

2c 1 74 00E— 01 

I0I66E 

02 

lol7701E-01 

lo046E 

02 

2o023 20E-01 

lo 1 72E 

02 

lo 16598E— 01 

icosie 

02 

lc89960E-01 

lo 177E 

02 

lo 15529E-01 

lo 055E 

02 

lc 801 1 7E— 01 

lc 1 82 E 

02 

lo 14489E-01 

I0O6OE 

02 

lo 72030E— Cl 

lc 18 8 E 

02 

lo 13476E-01 

lo065E 

02 

lo 65293 E-01 

lol93E 

02 

lo 12487E— 01 

lo070E 

G 2 

lo 5S609E-C1 

lo 199E 

02 

lo 11520E-01 

lo075E 

02 

lo 54755E-01 

lc 204E 

02 

lo 10572E-01 

lo 080E 

02 

lo 50563 E-01 

lo209E 

02 

lo 09642E- 01 

lcOSSE 

02 

la 46907E— 01 

lo 215E 

02 

lo 08730E-01 

lo 089E 

02 

lo43684E— 01 
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02 
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lo 237E 

02 

lo 05225E-01 
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02 

lo 04380E-01 

lc 115E 

02 

lo 3 1832E-C1 

lo 2496 

02 

lo 03546E-G1 

lc 120E 

G2 

lo 30023E-01 

lo254E 

02 

lo 02722E-01 
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FREQ 

PH/s 


FFEQ 

PFA 


FREQ 

PHA 


FREQ 

PHA 


6 o OOQE 

01 

-60 76678E 

00 

a 0 562fc 

01 

-loS8212E 

01 

loOC4E 

02 

lo 02S97E 

02 

lo 125E 

02 

3o 8 1304E 

01 

80 036E 

01 

-9o 0C136E 

00 

9o 0C3E 

01 

-2o C6726E 

01 

lo 009E 

02 

9o 87016E 

01 

lol30E 

02 

3o 72155E 

01 

80 C73E 

Cl 

-9o 24 2 C 6 E 

00 

9u 04 4 E 

01 

-2 0 15 8 20E 

01 

lo 0 1 3E 

02 

9o438G5E 

Cl 

lo 135 E 

02 

3o 63607E 

01 

80 HOC 

01 

- 9o 45 52 IE 

00 

9o 06 5E 

01 

-2o 25545E 

01 

IcOlGE 

02 

9o 00957E 

01 

lo 140E 

02 

3o 55613E 

01 

So 147F 

01 

-9o 75875C 

00 

9c 126E 

01 

-2o 259 6 IE 

01 

lo 02 2E 

02 

80 58987E 

01 

lol45E 

02 

3o48129E 

01 

8 <j 184E 

01 

-lo 00342 E 

01 

9o 168E 

01 

-2o 471 29E 

01 

lo 027E 

02 

80 18328E 

01 

lol51E 

02 

3o 41113E 

01 

8 o 221 e 

01 

“Jo03224E 

01 

9c 2 208 

01 

-2o 55 123E 

01 

lo 03 2 E 

02 

7o79353£ 

Cl 

1o156E 

02 

3o 34532E 

Cl 

8,258E 

01 

-lo C624CE 

01 

9c 25 IE 

01 

-2o 72018E 

01 

lo 036E 

02 

7o42291E 

01 

I 0 I 6 IE 

02 

3o 28348E 

01 

80 296E 

Cl 

-lo C939SE 

01 

9c 254E 

01 

-2o £59045 

01 

lo041E 

02 

7o 073 17E 

01 

I 0 I 66 E 

02 

3o 22536E 

01 

a„ 33AE 

01 

- lo 127 12E 

01 

9c 326E 

01 

-3oCC87Cc 

01 

U046E 

02 

60 74521E 

01 

lo 172E 

02 

3o 17064E 

01 

80 372E 

01 

-lcl6187E 

01 

9o 378E 

01 

-3o 17C24E 

01 

lo051E 

C 2 

6 0 43913E 

01 

lo 177E 

02 

3o 11913E 

01 

8 o 410E 

01 

-lo 19835E 

01 

9o 42 IE 

01 

-3 0 344 7 IE 

01 

lo 055E 

02 

6 0 15450E 

01 

lo 1 S2E 

02 

3o 07056E 

01 

8 « 448E 

01 

-lo 2366 9E 

01 

9.464E 

01 

— 3o 5 33 3 CE 

01 

lo 060 E 

02 

5o 88C60E 

01 

I 0 I 88 E 

02 

3.02475E 

01 

80 487E 

01 

-lo 27700E 

Cl 

9c 5C7E 

01 

-3o 73725E 

01 

lo C65E 

02 

5 0 64631 E 

Cl 

lo 1 93E 

02 

2o 98149E 

01 

80 525E 

01 

-lo 3 1944E 

Cl 

9o 5 50E 

Cl 

-3o c 578 5E 

01 

lo070E 

02 

5o4 2049E 

01 

lo 199E 

02 

2o 94063E 

01 

80 564E 

03 

- lo 364 15E 

01 

9c 554E 

01 

-4c 1964 IE 

01 

lo 075E 

02 

5o 211 7B E 

01 

lo 204E 

02 

2» 901 89 E 

01 

8o603E 

01 

-lo41131E 

01 

9o 6 2 7E 

01 

-4o454 C3E 

01 

loCaCE 

02 

5o 01895E 

01 

lo 2C9E 

02 

2o 86545E 

01 

80 642E 

01 

- lo 46 1C 7E 

01 

9o 6 8 IE 

01 

-4o 73197E 

01 

I 0 O 8 EE 

02 

4o 84074E 

Cl 

lo 215 E 

02 

2o 83087E 

01 

So 682E 

01 

-lo 5 136 7 E 

01 

9o 7 2 5E 

01 

-5o C 3094 E 

01 

lo C89E 

02 

4o 67594E 

01 

lo220E 

02 

2o 798 L2E 

01 

So 72 IE 

01 

-lo 5693 IE 

01 

9o 770E 

01 

-5o 3S143E 

01 

lo094E 

G 2 

4o 52343E 

01 

lo 226E 

02 

2o76711E 

01 

80 76 1C 

01 

-lo 62822E 

01 

9o 8 14E 

01 

-5o 6 c 340£ 

01 

lo C99E 

02 

4o 38215E 

01 

lo 232E 

02 

2 0 7377 IE 

Cl 

808 OIE 

01 

-lo69065E 

01 

9o 6 59 E 

01 

-6 0 C5557E 

01 

lo 104E 

02 

4o 25113E 

01 

lo 237 E 

02 

2o70984E 

01 

80 841E 

01 

-lo 75694E 

01 

9o 904E 

01 

-6c43487E 

01 

lo 109E 

02 

4o 12947E 

01 

1o243E 

02 

2o 68341E 

Cl 

80 881E 

01 

-lo £2 737 E 

01 

9o 9 49E 

01 

-60 0CO64E 

01 

lo 1 1 5E 

02 

4 o 01638E 

01 

1o249E 

02 

2o 65834E 

01 

80 921E 

01 

-lo S0229E 

01 

9o 994 E 

01 

1 o 07 134E 

02 

lol20E 

02 

3o 911 HE 

01 

lo254E 

02 

2o 63454E 

Cl 



GREATEST VALUE 


UC7124E 02 


L CHEST VALUE = -6.800646 01 


UTERVAL - lo522S8E CO 


6.C0CE 01 


B.372E Cl 


0.76 IE 01 


9.168E 01 


9.594E 01 


1*004 E 02 


1.G51E 02 


1.C99E 02 


1.1SIE C2 


1.204E 02 



EM) 


C-92 



Example 2: Illustration of the (TYPE=REAL.) Option (Taken from the 

Report, "Designed Manual for Computer-Aided Design of Communication 
Circuits, " written by K, N. Haag, E. W. Weber, Illinois Institute of Tech- 
nology, Chicago, Illinois. 
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=fc»»*K AS A P**** 


jiemoRJi-AMjLxa.: 


THIS VERSION Vi A.S,QE,V£LC£EE. JX.-UX.LA._iA.GJ.Q__ C £ F T a 


NASAP TEMPERATURE STABIl ITY FIX FH BIA S 
VI 5 1 2C VR1 

V2 5 4 1 V R9 

ftl 2 1 1 

R2 1 3 510K 

R3 3 4 IK 

R4 6 5 4 OK - 

R5 1 6 5K 

R6 3 7 o5 

R7 3 8 10K 

KJL.8_5._o2 5 i 

R5 8 10 10K 

RIO 1C 11 1 

Rll 11 13 lo 92 3 M 

R12 1C 13 - o 6037 

R13 1C 12 oCC 90349 

Cl 11 13 o02UF 

C2 10 13 o 00 77 83 

LI 7 8 o02 

L2 9 1C -oC02 

L3 12 13 o0l9154 

11 1 2 1 

12 6 5 1 VR7 

13 6 5 1 IR10 

14 8 3 50 IR3 

15 10 8 1 VR1 

16 13 10 50 VR1 

OUTPLT 
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TAG 


GENER-- 


FI FMENT MIHflFB FI FRFNT RAKF r.FPFNnFRO.V UF....ANY.) CaXGXbUMOOE TARGET NODF VA.LUF - 


O 


1 

VI 

VR1 

5 

1 

2o OOOOOOCOE 01 

i 

1 

2 
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VR9 

5 

4 

i ^oonorionnF on 

i 
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3 
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2 

i 
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i 

0 

4 
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5»XC0Q0G00E 05 

X 

_jQ 

5 

R3 


3 

4 
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0 

0 

6 
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8 

5 

4„ nOOOOOOOF 04 

a 

n 

7 

R5 


i 

6 

5o OOOOOOOOE 03 

i 

0 

8 

R6 



7 

4„ 999998? 1 fi-nl 

c 

o „ , _ 

9 

R7 


3 

8 

loOOOOOOOOE C4 

i 

0 

10 

Rfl 


8 

<5 

P— HI 

o 

Q 

11 

R9 


8 

10 

loOOOOOOOOE 04 

1 

0 

1? 

R 1 0 


1 n 

1 T 

i„nnonnnnoF on 

„ „1 

n 

13 

Rll 


11 

13 

lo 922 S9800E 06 

0 

0 

1 A 

R12 


10 

1 ^ 

. — Ra0369967?F— 01 

1 

__ _ 0 _ 

IS 

R13 


10 

12 

9o 03489068 E - 03 

1 

0 

16 

Cl 


1 1 

1 3 

1 „ 99959R39F— OR 

0 

— 0 - - 

17 

C2 


10 

13 

7o 78298198E-03 

0 

0 

18 

1.1 


7 

8 

1 0 ggggggc^gp— q? 

1 

0 

19 

L2 


9 

10 

-lo?999S986E-03 

1 

0 

?n 

L3 


1 2 

1 3 

1«.qi ( 53<3fiMF-n? 

0 

o 

21 

11 


1 

2 

lo OOOCOOOCE CO 

0 

1 

22 

12 

VR7 _ 

6 

*7 

l^nnonnonoF nn 

0 

„ 1 . 

23 

13 

I R 10 

6 

5 

loOOOOOOOOE 00 

0 

1 

24 

14 

I R3 

8 

3 

5ft nn ofiflocoF m 

n 

.... 1 ... 

25 

15 

VR1 

10 

8 

loOOOOOOOOE 00 

0 

1 

Zk 

Ik 

Ml 

1 3 

LQ 

5ft nnoonono f. oi 

-- 0. 

„ . 1 


2 

-3 

0 

2057152 


3 

4 

32 

n 


4 

2 

0 

32 


5 

-1 

0 

1 258300 8 


6 

7 

12582976 

0 


7 

-18 

n 



8 

9 

16777216 

256 


S 

-19 

0 

1024 


10 

11 

33554422 

1C24 


1 1 

12 

7 37 2 R 

n 


12 

15 

1C41576 

0 


13 

14 

_mc£at.A_, 

1253376 




FLCWCRAPF 


FRCK 

TO 

S 

VALUE 

- 29 

27 

C 

2 <.ccccoccoe ci 

37 

28 

0 

loCCCCOCCCE CO 

3 . 

29 

0 

loCCOCOCOOE oc 

4 

30 

c 

So 1CCCCCC0E C5 

31 

5 

c 

5o S c 9?553 1E-C 4 

32 

6 

0 

2o459S9E66E-C5 

. 7 

33 

c 

SoCCCCOCCOE C3 

34 

8 

0 

2oCCCCCCCCE 00 

9 

35 

0 

loCCCCOOCOE C4 

36 

10 

c 

4o CC0CC191E CO 

11 

37 

0 

loCCGCCCCOE C4 

12 

38 

0 

loCCOCOCOOE 00 

.:39 . 

13 

c 

So 2CC2 1331E-C7 

14 

40 

0 

-8oG3b*. c € 72E-C1 

15 

41 

0 

9oC34E c C68E-G3 

42 

16 

1 

lo C ?9?9 6 29£-C 8 

43 

. 17 

1 

7o7£25SlC8E-03 

« 18 

44 

1 

lo5 c 9 cc 958£-02 

-15 . 

45 

1 

— lo cccccc £6E-C3 

46 

20 

-1 

5o22C£45C3E 01 

35 

_ 22 

c 

loCCOCGCCCE GO 

12 

23 

0 

loCCCCCCCCE GO 

5_ 

24 

G 

5oCCCCQCC0E 01 

29 

25 

0 

loCCCCOCCCE CO 

_29_ 

26 

, 0 

SoCCCCOCCOE 01 

21 

3 

c 

loCCOCOOCOE 00 

29 

47 

c 

loCCCCOOCOE 00 

5 

4 

0 

loCCOCOOCOE OC 

30 

31 

c 

-loCCOCOOCOE 00 

5 

2 

c 

-loCCCCOCCOE CO 

_ 28 _ 

31 

0 

-loCCCCCCCCE oc 

5 

1 

0 

loCCOCOOOOE 00 

27 

31 

0 

loCCCCCCCCE 00 

6 

1 

0 

loCCCCCCCCE 00 

27 

32 

0 

loCCCCOCCOE 00 

22 

1 

0 

loCCGCCCCCE 00 

27 

48 

0 

-loCCCCOCCOE CO 
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